Excel Cell Data To SQLEXPRESS

Hello, I am haing a little trouble with send cell data from an Excel sheet to SQLEXPRESS and I'm sure that it is not that hard. Has anybody else come accross this. I have the code below, but it is not complete as I'm not sure what to do to complete it:


Private Sub cmdSend_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Dim strConn As String

strConn = "PROVIDER=SQLOLEDB;"

strConn = strConn & "DATA SOURCE=(local)SQLEXPRESS;INITIAL CATALOG=test;"

strConn = strConn & " INTEGRATED SECURITY=sspi;"

cn.ConnectionString = strConn
cn.Open

Set rs = New Recordset

With rs
' Assign the Connection object.
.ActiveConnection = cn
' Extract the required records.
.Open "UPDATE tblData Set ID = ID, Name = Name"
' Copy the records into cell A1 on Sheet1.
Sheet1.Range("A2, B2").CopyFromRecordset rs

' Tidy up
.Close
End With

cn.Close

End Sub



I know that it is not correct, but I am trying to convert a recordset query from SQL to Excel to Update Sql from Excel.

The cells from A2 down have an ID and cells from B2 down have a name.

Thanks for your time