Public Function save_finger(ByVal finger As String, Optional ByVal member As _
  String = "") As Boolean
    On Error Resume Next
    Dim nId As String
 
    RecordSet.CursorLocation = adUseClient
    RecordSet.CursorType = adOpenKeyset
    RecordSet.LockType = adLockOptimistic
    RecordSet.Open "finger", adoConnection
    RecordSet.AddNew
    RecordSet!features = finger
    RecordSet.Update
    nId = RecordSet.Fields("fnr").Value
    RecordSet.Close
 
    ' Fingerabdruck bei Member speichern
    'member = ""
    If member <> "" Then
        sql = "UPDATE member SET fnr ='" & nId & "' Where id='" & member & "'"
 
        If nId = 0 Then
            MsgBox "Fingerabdruck nicht gespeichert", vbCritical
        Else
            adoConnection.Execute(sql)
        End If
    Else
        MsgBox "Keinen Member angegeben", vbCritical
    End If
 
End Function

Public Function open_database(ByVal Path As String) As Boolean
    On Error Resume Next
    Set adoConnection = New ADODB.Connection
    sConnectString = "Provider=MSDataShape;" & "Data" & _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & _
      "Data Source=" & "" & Path & ";"
 
    If adoConnection.State = adStateOpen Then
    Else
        With adoConnection
            .ConnectionString = sConnectString
            .ConnectionTimeout = 3
            .CursorLocation = adUseClient
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Open
        End With
    End If
 
   If adoConnection.State <> adStateOpen Then
      open_database = False
   End If
 
   open_database = True
 
End Function