Set Rs = New adodb.Recordset
 
With Rs
    .ActiveConnection = Cn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = "SELECT Menge, Einheit, Bezeichnung, EinzelPreisBrutto," & _
      "GesamtPreisBrutto FROM tbBestellung"
    .Open
End With
 
Set Me.DataGrid1.DataSource = Rs