hi there!

First, you need to make connection string of your data base from your vb project,,like this

Public cn As ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub myCon()
Dim mDataSource As String

mDataSource = "database/kiosk.mdb"
Set cn = New ADODB.Connection

cn.CursorLocation = adUseClient
cn.CommandTimeout = 0
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mDataSource & ";Persist Security Info=False"

Set rs = New ADODB.Recordset
End Sub

hope makatulong ito sa problema mo..