Listing B
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