Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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