Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Execute the view
Sub ExecuteView()
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenStatic
    rst.Open "vwClients"
    MsgBox rst.RecordCount
End Sub