I'm using this code:

Public conTEST As New ADODB.Connection

Public strConTEST As String

Public Sub subConTEST()

strConTEST = "Provider=sqloledb;" & _

"Data Source=your_server_name;Initial Catalog=your_database_name;User Id=your...(or maybe sa);Password=your_password; "

conTEST.Open strConTEST

End Sub

.......

Dim cmdTEST As New ADODB.Command

Set...