'Microsoft ActiveX Data Objects X.X Library (early bind).
'Make sure you have correct heading available in the data File
Sub conscious()
    Dim con As ADODB.Connection
    Dim sqlstr As String, datasource As String
    Set con = New ADODB.Connection
    datasource = "C:\Users\Excel\Desktop\Book1.xlsm" 'change to suit
    Dim sconnect As String
    sconnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                "Data Source=" & datasource & ";" & _
                "Extended Properties=""Excel 12.0;HDR=YES"";"
    With con
        .Open sconnect
        'sqlstr = "UPDATE [Sheet1$] SET [Name] = ""John Knight"" WHERE [ID Number] = 12345"
        sqlstr = "INSERT INTO [Sheet2$] ([Login_Id]) Values ('12345')"
        .Execute sqlstr
    End With
    Set con = Nothing
End Sub