Tom Database

Er det muligt at tjekke om en data base er tom eller på anden vis om en tabel er tom eller om en celle er tom.
Det skal være sådanne så hvis tabellen 1 "kat" er tom skal den ikke lave fejl i den men hoppe videre til tabel 2 "titel" og hvis 2 er tomt skal den hoppe ud af lykken.

'Loader maindvdliste data
Dim tmp1 As String
Dim tmp As String
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
'Åbner forbindelse til Databasen
tmp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\liste.mdb;Persist Security Info=False"
cn.Open tmp

'definere records fra tabellen TABEL
rs1.Open "Select distinct kat from liste WHERE list= '" & Combo2.Text & "'", cn, adOpenDynamic, adLockOptimistic
While Not rs1.EOF
If Not IsNull(rs1("kat").Value) Then
  tmp1 = rs("kat")
  Combo1.AddItem tmp1
End If
rs1.MoveNext
Wend

'definere records fra tabellen TABEL
rs.Open "Select * from liste WHERE list= '" & Combo2.Text & "'", cn, adOpenDynamic, adLockOptimistic
rs.MoveFirst
Do Until rs.EOF
titelliste.AddItem rs("nr") & vbTab & rs("titel")
rs.MoveNext
Loop


Venlig hilsen Jobb