without seeing what the error is, its difficult to help you, but maybe these steps will help you.
1. make sure you add to your references:
Microsoft ActiveX Data Objects 2.5 Library (or higher version)
2. Add the following 3 subrouties to the .bas file to make connection work easier. make all variables PUBLIC
Set Xconx = New ADODB.Connection
Set Xcmd = New ADODB.Command
Set Xrs = New ADODB.Recordset
Set Xconx = CreateObject("ADODB.Connection")
Xconx.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=" & m_DRV & ":\" & m_DIR & "\" & m_MDB
Set Xrs = CreateObject("ADODB.Recordset")
Xrs.CursorLocation = adUseServer
Set Xconx = Nothing
Set Xcmd = Nothing
Set Xrs = Nothing
If Xrs.State = adStateOpen Then Xrs.Close
3. generate the sql statement in the form, make the connection, if is is not made already (then use checkrs, for when you make a series of cmds, like updating a table then writing to a log) and open the recordset.
m_strSql = "SELECT * FROM ......"
CONXMAKE or CHECKRS
Xrs.Open m_strSQL, Xconx, adOpenStatic, adLockReadOnly, -1