On Error GoTo Fehler
    With CommonDialog1
    .CancelError = True
    .DialogTitle = "Wählen Sie die Datenbank aus!"
    .Filter = "Jet-Datenbank (*.mdb)|*.mdb"
    .ShowOpen
    If .FileName = "" Then Exit Sub
    End With
 
    On Error GoTo Fehler
    Dim strSQL As String
    Set Conn = New ADODB.Connection
    With Conn
        .CursorLocation = adUseClient
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = CommonDialog1.FileName
        .Open
    End With
 
    strSQL = "select * from Tabellenname order by Tabellenspalte"
    Set Rs = New ADODB.Recordset
    With Rs
        Set .ActiveConnection = Conn
            .CursorType = adOpenKeyset
            .LockType = adLockOptimistic
            .Open (strSQL)
    End With
    Set DataGrid1.DataSource = Rs
 
Fehler:
    Exit Sub