Push Excel data to Acces

[ArrowL]

Hi,
I am tring to push Excel 2010 data into Access.

I have the code below but it keeps getting errors.


Thanks all.

Private Sub CommandButton1_Click()

    Dim con As New ADODE.Connection
    Dim connectionString As String
    
    Dim sql As String
    
    connectionString = "filename; Driver={Microsoft Access Driver (*accdb)};"
    
    con.Open connectionString
    
    sql = "insert into tbl_names (First, Last) values('" & TextBox1.Text & "', '" & TextBox2.Text & "')"
    
    con.Execute sql
    
    MsgBox "Values entered", vbInformation
    
    con.Close
    
    Set con = Nothing
    
    
End Sub