With MSFlexGrid1
        ClickRow = .Row
        ClickCol = .Col
    End With
    ClickValue = MSFlexGrid1.TextMatrix(ClickRow, ClickCol)
    Datei = App.Path & "\Database.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 = adOpenStatic
    rst.LockType = adLockOptimistic
 
    dsTabelle = "Adressen"