记录集打开期间adodb连接错误

Question

Using VB6 & ADODB to open access 2000 DB. Connection string opens. I verify this by getting the .STATE of the connection before opening recordset.

Private Sub Form_Load()
  With conn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
         & "Data Source=C:\Path to database\MyDb.mdb;"
  End With
  conn.Open

  Debug.Print conn.ConnectionString
End Sub

The below snippet shows the line where the error occurs

Private Sub btnGO_Click()
Dim strDbName As String
Dim strg As String
Dim chkr As Variant
Dim MyCnt As Integer

chkr = False

Dim strsql As String
strsql = "Select * from [dbo].[BidItem]"

With rst
    .ActiveConnection = conn
    .Source = "Select * from [dbo].[BidItem]"
    .Open   -------------------------------------> Errors at this point
End With


With rst
    If Not .EOF And Not .BOF Then
        .MoveFirst
        MyCnt = .RecordCount
    End If
End With

MsgBox ("open")
MsgBox ("Count of TableRows: " & MyCnt)
Set rst = Nothing

End Sub

EDIT: Exact error message is Run-Time Error '-2147467259 (80004005)': Could not find file 'C:\\Program Files (x86)\\Microsoft Visual\\VB98\\dbo.mdb'

Answer 1

Both your snippets are coded as 'Private' which means they don't share well. You 'Go' button isn't clear on what the actual 'ActiveConnection' was set to be earlier in the Form load.