Private Cn As ADODB.Connection
Private Rs As ADODB.Recordset
 
Private Sub Form_Load()
 
    'Verbindung zu Datenbank erzeugen
 
    Set Cn = New ADODB.Connection
 
    Cn.Provider = "Microsoft.Jet.OLEDB.4.0" 'Access 2000
    Cn.ConnectionString = db_pfad 'Datenbankpfad
 
    Cn.CursorLocation = adUseClient
    Cn.Mode = adModeReadWrite 'zum lesen und schreiben öffnen
 
    Cn.Open 'Verbindung herstellen
 
End Sub
 
Private Sub cmdTabelleÖffnen_Click()
    InitRecordSet "SELECT * FROM " & Combo2.Text
End Sub
 
Private Sub cmdAktualisieren_Click()
Dim sql As String
 
    sql = "Update " & Combo2.Text & " Set " & Combo2.Text & ".Bezeichnung = '" _
      & Text1.Text & "' Where " & Combo2.Text & ".ID = " & _
      MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) & ";"
    Cn.Execute sql
    Rs.Requery
    InitRecordSet "SELECT * FROM " & Combo2.Text
 
End Sub
 
Public Sub InitRecordSet(ByVal sql As String)
 
    Set MSHFlexGrid1.DataSource = Nothing
    Set Rs = New ADODB.Recordset
    Set Rs.ActiveConnection = Cn
    Rs.LockType = adLockOptimistic
    Rs.Source = sql
    Rs.Open
    Set MSHFlexGrid1.DataSource = Rs
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Rs.Close
    Set Rs = Nothing
    Cn.Close
    Set Cn = Nothing
End Sub