Option Explicit
Dim rsControls As New ADODB.Recordset
Dim cnControls As New ADODB.Connection
Dim oControl As Object
Private VarName1 As String
Private VarName2 As String
Private VarName3 As String
Private intzaehler As Integer
Private strtest As String
Private strvorname As String
Private intzaehlervorname As Integer
Private strnachname As String
Private interror As Integer
Private interror2 As Integer
 
 
 
Private Sub Form_Load()
    On Error GoTo FindErr
    Dim strQ As String ' Abfragezeichenfolge
    strQ = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & _
      "\controls.mdb"
 
    cnControls.Open strQ
    rsControls.Open "select * from Controls order by Beschreibung", cnControls, _
      adOpenKeyset, adLockOptimistic
     Exit Sub
FindErr:
    ' Falls die Datenbank nicht gefunden wird, wird die
    ' FindDB-Funktion verwendet, um sie zu suchen.
    If Err.Number = -2147467259 Then
    cnControls.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & FindDB( _
      "controls.mdb")
    Resume Next
    End If
    Exit Sub
End Sub
Private Function FindDB(dbName As String) As String
    On Error GoTo ErrHandler
 
    ' Konfigurieren von cmdDialog, falls Datenbank nicht gefunden werden kann.
    With dlgFind
        .DialogTitle = "Datenbank " & dbName & " wurde nicht gefunden"
        .Filter = "(*.MDB)|*.mdb"
        .CancelError = True   ' Löst einen Fehler aus, wenn der
                              ' Benutzer auf "Abbrechen" klickt.
        .ShowOpen
    End With
    ' Überprüfen der Zeichenfolge, um sicherzustellen, daß
    ' es sich um die gesuchte Datenbank handelt.
    Do While Right(Trim(dlgFind.FileName), Len(dbName)) <> dbName
       MsgBox "Dateiname veschieden von " & dbName
       dlgFind.ShowOpen
    Loop
 
    FindDB = dlgFind.FileName ' Zurückgeben des vollständigen Pfads.
    Exit Function
ErrHandler:
    If Err = 32755 Then
      Unload Me
    End If
 
End Function
 
 
Private Sub Command1_Click()
  Dim vControlLicense As Variant
  Dim vControlType As Variant
  Dim vPropertyName As Variant
  Dim vPropertyValue As Variant
  Dim vControlWidth As Variant
  Dim vControlHeight As Variant
  Dim sError As String
  strvorname = txttest
 
 
 
  rsControls.MoveFirst
 
 
  vPropertyName = rsControls.Fields("Beschreibung")
  vPropertyValue = rsControls.Fields("Vorname")
  vControlLicense = rsControls.Fields("Nachname")
  vControlType = rsControls.Fields("Steuerelementtyp")
  vControlWidth = rsControls.Fields("Steuerelementbreite")
  vControlHeight = rsControls.Fields("Steuerelementhöhe")
 
intzaehler = 0
interror = 0
interror2 = 0
 
Do While rsControls.BOF = False
intzaehler = intzaehler + 1
 
If (rsControls.EOF = True) Then
Exit Do
 
End If
 
 
If (rsControls.EOF = False) Then
 
 
VarName1 = rsControls.Fields("Vorname")
End If
 
 
If (VarName1 = strvorname) Then
 
lbltest.Caption = VarName1
 
strnachname = rsControls.Fields("Vorname")
lbltest2 = strnachname
 
interror2 = 1
 
Exit Do
 
Else
 
interror = 1
 
 
 
End If
 
 
rsControls.MoveNext
 
Loop
 
If (interror = 1 And interror2 = 0) Then
lbltest.Caption = "Keinen Eintrag gefunden"
intzaehler = MsgBox("Keinen Eintrag gefunden", vbOKOnly, "Not Found")
End If
 
 
 
End Sub