Public Function FeldInhalt(Feld As Field) As Variant
  If IsNull(Feld.Value) Then
    If Feld.Type = dbInteger Or Feld.Type = dbLong Then
      FeldInhalt = 0
    ElseIf Feld.Type = dbBoolean Then
      FeldInhalt = False
    Else
      FeldInhalt = ""
    End If
  Else
    FeldInhalt = Feld.Value
  End If
End Function

    Dim id As String
   On Error GoTo ANListe1_DblClick_Error
 
    Datei = App.Path & "\db1.mdb"
 
    Set db = New ADODB.Connection
    strdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
             Datei
 
    db.Open strdb
 
    Set rst = New ADODB.Recordset
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic
    rst.Source = ("Select * From Arbeitnehmer Where ANID =" & _
      ANListe1.SelectedItem.Text)
    rst.Open , db
 
    AN2.IdNR.Text = rst.Fields("ANID")
    AN2.ANSTR.Text = rst.Fields("ANSTR1")
    rst.Close