Hello,
I am having difficulty resolving the set instruction below.
I get runtime error 91 object variable or with block variable not set
I have tried many ways of handling this.
Public Sub LoadFindCbo()
Dim db As Database
Dim rs As Recordset
Dim sql As String
frmFind.cboCode.Clear
sql = “Select distinct code from PersonnelCommon order by code”
Set rs = dbEFC.OpenRecordset(sql) ‘ e r r o r
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While rs.EOF = False
frmFind.cboCode.AddItem NoNull(rs!code)
rs.MoveNext
Loop
End If
rs.Close
End Sub
Thank you.
