Ahhh!!! Another necrophiliac, necromonger, necromancer!!! It raises the dead!!! Ahhh!!!!
All kidding aside chupa charles, it is not nice to raise the dead threads. It gives people the willys!
Please, in the future, if you need to reference another thread, copy its url into your new thread.
Now, to answer your question. Use the data form wizard, of which you will find under add-ins>add-in manager. Load it up and follow the wizard and I suggest that you use every combination of form with control/code/class against one of the databases where you have vb installed like biblio.mdb. Then save this project for future reference.
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo myerror
cn.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database_name.mdb;Persist Security Info=false"
cn.CursorLocation = adUseClient
rs.Open "SELECT * FROM table_name", cn, adOpenKeyset, adLockOptimistic, 0
MsgBox "Total record in table " & rs.RecordCount
MsgBox Err.Number & " - " & Err.Description, vbOKOnly + vbExclamation, "button click: " & Erl
here is simple code to count record of ur table n
by using Recordset u can play with lots many things
you must connect your library first before you use it,
dim cn as new adodb.connection
Set cn = New ADODB.connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\myDatabase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=smiojt"