Dim DB As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Const connstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog= ;Data Source= "
Private Sub Form_Load()
DB.ConnectionTimeout = 0
DB.CursorLocation = adUseClient
DB.OPEN connstr
End Sub