Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Open a table and read data by column

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