Set oConn = New ADODB.Connection
    Set oRs = New ADODB.Recordset
 
        ' Datenbank öffnen
        With oConn
          .CursorLocation = adUseClient
          .Provider = "Microsoft.Jet.OLEDB.4.0"
          .Properties("Data Source") = dbName
          .Properties("Persist Security Info") = False
          .Open
        End With
 
        SQL = "SELECT folder, desc FROM tbl_main"
        oRs.Open SQL, oConn, adOpenKeyset, adLockPessimistic
        Set DataGrid.DataSource = oRs