' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Private DB As ADODB.Connection
Private RS As ADODB.Recordset
 
Private Sub Form_Load()
 
  Set DB = New ADODB.Connection
 
  DB.CursorLocation = adUseClient
  DB.Provider = "Microsoft.Jet.OLEDB.4.0"
  DB.Open "C:\epea.mdb" ' Pfad musst Du anpassen
 
  Set RS = New ADODB.Recordset
 
End Sub
 
 
Private Sub TabelleÖffnen_Click()
 
  SQL = "SELECT * FROM Projekte"
 
  RS.Open SQL, DB, adOpenDynamic, adLockOptimistic
 
  Set MSHFlexGrid1.DataSource = RS
 
End Sub
 
 
Private Sub Form_Unload(Cancel As Integer)
 
  If RS.State = adStateOpen Then
    RS.Close
    Set RS = Nothing
  End If
 
  DB.Close
  Set DB = Nothing
 
End Sub