First check the referrence for ADO Library (Menu Project => Reference => Microsoft ActiveX Data Objects Library)
Public gobjConnection As ADODB.Connection
Public Sub DBConnect()
Set gobjConnection = New ADODB.Connection
'if you use standard security
gobjConnection.Open "Provider=sqloledb;" & _
"Data Source=myServerName;" & _
"Initial Catalog=myDatabaseName;" & _
"User Id=myUsername;" & _
"Password=myPassword"
'or if you use trusted connection then
gobjConnection.Open "Provider=sqloledb;" & _
"Data Source=myServerName;" & _
"Initial Catalog=myDatabaseName;" & _
"Integrated Security=SSPI"
End Sub
See MSDN for using ADO.Connection, ADO.Command, ADO.Recordset
Peko
|