Dim Anzahl As Integer
Dim wert1 As String
Dim wert2 As String
wert1 = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
wert2 = "Data Source=" & (App.Path + "\" + "test.mdb") & ";"
    Adodc1.ConnectionString = wert1 + wert2
    Adodc1.RecordSource = "SELECT * From test where wert1 = 1 and wert2 = 1 and 
                                                  wert3 = 1"
    Adodc1.Refresh
 
    Anzahl = Adodc1.Recordset.RecordCount
 
    If Anzahl > 0 Then
        --- DB füllen ---
    else
        exit sub
    end if