DB = New ADODB.Connection
 
        With DB
            .Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=" & AppPath & _
              "\Allgemein.mdb"
            .Open(AppPath & "\Allgemein.mdb")
        End With
        rs = New ADODB.Recordset
        SQL = "Select " & sSelect & " from " & sFrom & sWhere & ""
        rs.Open( _
          "Regionen",DB,ADODB.CursorTypeEnum.adOpenDynamic,ADODB.LockTypeEnum.a_
          dLockOptimistic)
        rs.MoveLast()
        rs.MoveFirst()
        If rs.RecordCount > 0 Then
 
        End If