Private Sub Form_Load()
 
   Dim mcnnDB                   As ADODB.Connection
   Dim mrst                     As New ADODB.Recordset
   Dim strsql                   As String
 
   Set mcnnDB = New ADODB.Connection
 
   mcnnDB.CursorLocation = adUseClient
   mcnnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
     "Source=C:\Warenwirtschaft Oracle\Warenwirtschaft.mdb;Persist Security" & _
     "Info=False"
   mcnnDB.Open
   strsql = "SELECT * FROM BENUTZER"
 
   mrst.Open strsql, mcnnDB
 
   Set Me.DataGrid1.DataSource = mrst
 
End Sub