DAO works great with Access 2000
here is how to use it.
You must reference Microsoft DAO 3.6 Object Library
Hint: From the menu bar click Project
from the drop box click References
then click iin The DAO object
Place in a module -----------------------
Public Const c_DBPassword As String = "xxxxx"
Public Const c_DAOconnector As String = "MS Access;PWD=" & c_DBPassword
Global the_query_def As dao.QueryDef
Global the_db As dao.Database
Global the_rs As dao.Recordset
---------------------------------------------------
This is a bit of code working for a year or more.
Public Sub load_by_combo()
Dim q As String
'sales person combo load
cmbBy.Clear
q = "SELECT "
q = q & "Cid, "
q = q & "Key, "
q = q & "Info "
q = q & "From Combos_misc "
q = q & "WHERE Key = 'Sales_person' "
Set the_db = OpenDatabase(v_PathData & v_DBname, False, False, c_DAOconnector)
Set the_rs = the_db.OpenRecordset(q, dbOpenDynaset, dbReadOnly)
While Not the_rs.EOF
cmbBy.AddItem the_rs("Info"

cmbBy.ItemData(cmbBy.NewIndex) = the_rs("CID"
the_rs.MoveNext
Wend
the_rs.Close
the_db.Close
End Sub
Luck Tom