VB Forum / Database Access / July 2007

Hello;
I'm on XP Pro, using VB6 and an SQL Server Database on our server.  I can't
seem to connect - keep getting "Error 3709 - The connection cannot be used
to perform this operation. It is either closed or invalid in this context".
This error happens on the .open statement.  Here's the code:

u = "sa"
p = "pwd"
dsource = "mysvr"
cata = "myDatabase"

Dim bDb As New adodb.Connection
Dim bRs As New adodb.Recordset
Dim Report As New CrystalReport1

   With bDb

       .Provider = "SQLOLEDB"
       .ConnectionString = "User ID=" & u & _
                                      ";Password=" & p & _
                                     ";Data Source=" & dsource & _
                                     ";Catalog=" & cata

   End With

   With bRs

       .CursorLocation = adUseServer
       .LockType = adLockReadOnly
       .CursorType = adOpenStatic

       .Open "SELECT ORDER_HEADER.customer_name FROM ORDER_HEADER", bDb

   End With