Sub Macro1()
Dim cnn As New ADODB.Connection
Dim mydata As String, myTable As String, SQL As String
mydata = "TEST"
myTable = "Table1"
With cnn.ConnectionString = "Provider=SQLOLEDB.1;" _& "User ID=sa;" & "Data Source=THTFCOMPUTER;" _& "Initial Catal