With dynDB_Con(dynID)
        .Close
        .Provider = "Microsoft.Jet.OLEDB.4.0" ' Access2000
        .CursorLocation = adUseClient
        .Mode = adModeReadWrite ' adModeShareDenyNone
        .ConnectionString = DB_FileName
        .Open
    End With
 
    ' RecordSet (SQL)
    With dynDB_RS(dynID)
        ' aktive Verbindung zuweisen
        Set .ActiveConnection = dynDB_Con(dynID)
        ' SQL Syntax an Recordset übergeben
        .Source = DB_SQLsyntax
        ' Tabelle öffnen
        .Open
        If Err.Number = &H80040E37 Then MsgBox "TabellenName nicht gefunden", _
          vbCritical, "ERROR"
    End With

*greetz*
Tim
.
http://www.DotNetWorld.de