Public Function FindNullADO(tbl As String, _

��� fld As String)

� Dim rst As ADODB.Recordset

� Dim strCriteria As String

� Set rst = New ADODB.Recordset

� strCriteria = fld & " Is Null"

� Debug.Print strCriteria

� With rst

��� .ActiveConnection = CurrentProject.Connection

��� .CursorType = adOpenStatic

��� .LockType = adLockPessimistic

��� .Open tbl

��� .MoveFirst

��� .Find strCriteria

��� Do While Not .EOF

����� Debug.Print rst("LastName")

����� .Find strCriteria, 1

��� Loop

� End With

� rst.Close

� Set rst = Nothing

End Function