Can someone help me convert this code from ADO to DAO. I'm getting nowhere. It takes and reads the tbl_Catagories which has two field (containing 48 records - CheckboxID and Description) and populates the Caption of a checkbox array. It works in ADO but the project I need to use it in is DAO based.

Private Sub LoadCheckBoxDescriptions()

Dim oCnn As ADODB.Connection
Dim oCmd As ADODB.Command
Dim oRs As ADODB.Recordset

Set oCnn = New ADODB.Connection
Set oCmd = New ADODB.Command

With oCnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb"
.Open
End With

With oCmd
.ActiveConnection = oCnn
.CommandType = adCmdTable
.CommandText = "tbl_Categories"
Set oRs = .Execute
End With

Do While Not oRs.EOF
chkOption(oRs!Checkboxid).Caption = oRs!Description
oRs.MoveNext
Loop

Set oRs = Nothing
Set oCmd = Nothing
Set oCnn = Nothing

End Sub

Any help would be appraciated:

Thanks,
Rev. Michael L. Burns