Option Explicit
 
' Datenbank-Objekte
'Private oDB As DAO.Database 'Original Demo
'Private oRs As DAO.Recordset 'Original Demo
Private oDB As ADODB.Connection
Private oRs As ADODB.Recordset
 
Private Sub Form_Load()
    Dim sSQL As String
 
    Set oDB = New ADODB.Connection
    oDB.Open "Provider=MSDASQL.1;Password=;Persist Security Info=True;User" & _
      "ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51" & _
      "Driver};DESC=;DATABASE=cash!;SERVER=localhost;UID=root;PASSWORD=;PORT=;" & _
      "PTION=16387;STMT=;" & Chr$(34)
 
    ' SQL-Abfragestring
    sSQL = "SELECT ArtNr FROM artikel"
 
    Set oRs = New ADODB.Recordset
    Set oRs.ActiveConnection = oDB
    oRs.CursorLocation = adUseClient
    oRs.CursorType = adOpenStatic
    oRs.LockType = adLockReadOnly
    oRs.Source = sSQL
    oRs.Open
 
  ' Spalten festlegen
  With Grid1
    ' autom. Neuzeichnen des DataGrids unterbinden
    .LockUpdate True
 
    ' Spalten hinzufügen (bei DB-Anbindung nicht
    ' unbedingt notwendig!)
 
    .ColumnAdd , , 2000
 
    ' Recordset zuweisen
    Set .Recordset = oRs
 
    ' Neuzeichnen des DataGrids wieder aktivieren
    .LockUpdate False
    .Refresh
    .Row = 1
 
    Me.Caption = Me.Caption & " Version: " & .Version
  End With
 
  oRs.Close
  Set oRs = Nothing
End Sub