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