Opdater MS-SQL tabel fra Excel

Det lykkedes at få noget til at virke. Men er nu ikke helt tilfreds med koden.
Dim MyDatabase As ADODB.Connection
  Dim MyCommand As New ADODB.Command
  Dim MyRecordset As New ADODB.Recordset
  Dim Column As Long
    Sheets("Coefficients").Select
  ' Open database connection
  Set MyDatabase = New ADODB.Connection
  MyDatabase.CursorLocation = adUseClient
    MyDatabase.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=Thorvall;Data Source=Testing;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False"

MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A2").Value & "','" & Range("C2").Value & "','" & Range("D2").Value & "','" & Range("B2").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A3").Value & "','" & Range("C3").Value & "','" & Range("D3").Value & "','" & Range("B3").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A4").Value & "','" & Range("C4").Value & "','" & Range("D4").Value & "','" & Range("B4").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A5").Value & "','" & Range("C5").Value & "','" & Range("D5").Value & "','" & Range("B5").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A6").Value & "','" & Range("C6").Value & "','" & Range("D6").Value & "','" & Range("B6").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A7").Value & "','" & Range("C7").Value & "','" & Range("D7").Value & "','" & Range("B7").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A8").Value & "','" & Range("C8").Value & "','" & Range("D8").Value & "','" & Range("B8").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A9").Value & "','" & Range("C9").Value & "','" & Range("D9").Value & "','" & Range("B9").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A10").Value & "','" & Range("C10").Value & "','" & Range("D10").Value & "','" & Range("B10").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A11").Value & "','" & Range("C11").Value & "','" & Range("D11").Value & "','" & Range("B11").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A12").Value & "','" & Range("C12").Value & "','" & Range("D12").Value & "','" & Range("B12").Value & "')"
MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & Range("A13").Value & "','" & Range("C13").Value & "','" & Range("D13").Value & "','" & Range("B13").Value & "')"

' Close database
MyDatabase.Close
End Sub

kan du bedre lide noget alla dette her...

Dim MyDatabase As ADODB.Connection
  Dim MyCommand As New ADODB.Command
  Dim MyRecordset As New ADODB.Recordset
  Dim lRow As Long
 
  Sheets("Coefficients").Select
  ' Open database connection
  Set MyDatabase = New ADODB.Connection
  MyDatabase.CursorLocation = adUseClient
    MyDatabase.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;" & _
        "Initial Catalog=Thorvall;Data Source=Testing;Use Procedure for Prepare=1;Auto Translate=True;" & _
        "Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False"

    For lRow = 2 To 13
        MyDatabase.Execute "INSERT INTO NelsonSiegel (Parameter, Currency, Time, Value) VALUES ('" & _
            Cells(lRow, 1).Value & "','" & Cells(lRow, 3).Value & "','" & _
            Cells(lRow, 4).Value & "','" & Cells(lRow, 2).Value & "')"
    Next lRow

    ' Close database
    MyDatabase.Close
End Sub

Takker.
Bare opret et svar.

Du løste jo det meste selv :-)

Ja, men da jeg skrev spørgsmålet havde jeg dog brugt en dag uden held, og den ekstra er også noget værd.
så tak!