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