Sub LoopProjects()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "Employees", CurrentProject.Connection
Do Until rst.EOF
Debug.Print rst!Title, rst!City
If IsNull(rst!Region) Then
Debug.Print "No Value!!"
End If
rst.MoveNext
Loop
End Sub