Set oConn = New ADODB.Connection
Set oRS = New ADODB.Recordset
oConn.Open "Provider=MSDASQL;DSN=FrischGekochtMySQL"
oRS.Open "SELECT ID, Rezeptname, Zutaten, Koch, Datum, URL FROM Rezepte", _
  oConn, adOpenDynamic, adLockOptimistic
With Datagrid
  .CreateClone = True
  .Clear True
  Set .Recordset = oRS
  .Columns(1).Width = 1600
  .Columns(2).Width = 1600
  .Columns(3).Width = 1600
  .Columns(4).Width = 1600
  .Columns(5).Width = 1600
  .Columns(6).Width = 1600
  .LockUpdate True
  .AutoSort = True
  .AllowColumnSizing = True
  .LockUpdate False
  .Refresh
End With
oRS.Close
oConn.Close