Call SQL from MS Access using ADO

'Add Reference to Microsoft ActiveX Data Objects 6.1 Library
Dim Conn1 As ADODB.Connection
Dim Cmd1 As ADODB.Command
Dim Rs1 As ADODB.Recordset
Dim strTmp As String
Dim Connect As String
Dim Drop As String
Dim Create As String
Dim sp As String
Dim i As Integer
Dim l As Long
sConnect = "driver=SQL Server;server=tawa-sql05;Database=SFO-Exhibits;UID=sa;PWD=password;"

' Establish connection.
Set Conn1 = New ADODB.Connection
Conn1.ConnectionString = sConnect
Conn1.Open
'Clear Check column from AC_Documents
Set Cmd1 = New ADODB.Command
Cmd1.ActiveConnection = Conn1
Cmd1.CommandTimeout = 400
Cmd1.CommandText = "sproc_Documents_Set_Check_to_Blank" 
Cmd1.CommandType = adCmdStoredProc
Cmd1.Parameters.Append Cmd1.CreateParameter("@Case", adVarChar, adParamInput, 25, CaseNumber)
Cmd1.Parameters.Append Cmd1.CreateParameter("@Batch", adVarChar, adParamInput, 25, BatchName)
Set Rs1 = Cmd1.Execute()
Set Rs1 = Nothing