Dim DB As Database
Dim Rs As Recordset
 
Private Sub Form_Load()
    Set DB = DBEngine.OpenDatabase("Name_der_DB", False, False)
    LoadList
End Sub
 
Private Sub LoadList()
    Dim n As Long, i As Long
    List1.Clear
    Set Rs = DB.OpenRecordset("Einstellungen", dbOpenDynaset)
    n = DB.TableDefs("Einstellungen").Properties("Recordcount").Value
    For i = 0 To n - 1
       List1.AddItem Rs![Server Name]
    Next
End Sub
 
Private Sub List1_Click()
   Dim SQL As String
   Dim o As Control
   Dim Fld As Field
 
   If List1.ListIndex < 0 Then Exit Sub
   ClearFields
   SQL = "SELECT * From Einstellungen Where [Server Name] = '" & List1.List( _
     List1.ListIndex) & "'"
   Set Rs = DB.OpenRecordset(SQL, dbOpenDynaset)
   If Not Rs.EOF Then
      For Each o In Form1.Controls
          For Each Fld In Rs.Fields
              If Fld.Name = o.Tag Then
                  o.Text = Fld.Value
              End If
          Next
      Next
   End If
End Sub
 
Sub ClearFields()
   Dim o As Object
   For Each o In Form1.Controls
       If o.Tag <> "" Then o.Text = ""
   Next
End Sub