Sub CheckARecordset() Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.ActiveConnection = CurrentProject.Connection rst.CursorType = adOpenStatic rst.Open "Select * from Employees" If Not rst.RecordCount Then msgBox "Recordset Empty...Unable to Proceed" End If rst.Close Set rst = Nothing End Sub