You can use ADO to do this:
Dim con As ADODB.Connection
Dim rst As ADODB.Recordset
Set con = New ADODB.Connection
con.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=Full_Path_To_DB;" & _
"SystemDB=Full_Path_To_Workgroup;", _
"myUsername", "myPassword"
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM SomeTable", con
IF Not(rst.EOF and rst.BOF) Then
'/you have records
Else
'/you do not have records
End If