Export data from Excel to SQL

[Bob Phillips]

Sub AddData()
    Dim oConn As Object
    Dim sSQL As String
    Set oConn = CreateObject("ADODB.Connection")
    oConn.Open "Provider=sqloledb;" & _
    "Data Source=myServerName;" & _
    "Initial Catalog=myDatabaseName;" & _
    "User Id=myUsername;" & _
    "Password=myPassword"
    sSQL = "INSERT INTO Contacts (FirstName, LastName,Phone, Notes) " & _
    "        VALUES ('Bob','Phillips','01202 345678','me')"
    oConn.Execute sSQL
    oConn.Close
    Set oConn = Nothing
End Sub