[ann_may10]

 Option Explicit

Public conConnect As ADODB.Connection
Public rsEquipment As Recordset
Public rsDescription As Recordset
Public rsLocation As Recordset
Public rsReturnSlip As Recordset

Public Function connect()

Set conConnect = New ADODB.Connection
Set rsEquipment = New ADODB.Recordset
Set rsDescription = New ADODB.Recordset
Set rsLocation = New ADODB.Recordset
Set rsReturnSlip = New Recordset

conConnect.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=darsaccess.accdb"



End Function

hello everyone i would like to ask what's wrong with my codes i cannot connect it to microsoft access 2007 i'm using visual basic 6. The error says "Run-time error "-21474672 (80004005) Could not find file path..

[vb5prgrmr]

Your...

conConnect.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=darsaccess.accdb"

Data Source=darsaccess.accdb"

is not a fully qualified path. Something like...

Data Source=C:\darsaccess.accdb"

or whatever is the path to the database you are trying to open should work.

Good Luck