Dim objConn As ADODB.Connection
  Dim rsMain  As ADODB.Recordset
 
  Set objConn = New ADODB.Connection
  Set rsMain = New ADODB.Recordset
 
  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = "Data Source=" & datadatei
    .Open
    .Mode = adModeReadWrite
 
  End With
 
  With rsMain
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .Source = "SELECT * FROM " & PLZ_DB
    .Open
  End With
 
  Set DataGrid1.DataSource = rsMain
 
  With DataGrid1
    .AllowAddNew = True
    .AllowUpdate = True
    .Enabled = True
    .BorderStyle = dbgNoBorder
  End With