Sub CreateGridSQL()
Dim rsSQL
rsSQL = "SELECT * FROM relTarif"
rs.Open rsSQL, con, adOpenStatic, adLockOptimistic
'laden starten
With GridSQL
      ' autom. Neuzeichnen ausschalten
    .LockUpdate True
    .top = 795
    .left = 135
    .Width = 9850
    .Height = 5300
    .FixedCol = True
    .FixedColWidth = 450
    ' Recordset-Kopie erstellen
    .CreateClone = True
    ' Recordset zuweisen
    Set .Recordset = rs
    'anzahl der datensätze merken
    GlobRowsAnz = .Rows
    ' autom. Neuzeichnen einschalten
    .LockUpdate False
    .AutoUpdate = True
    .Refresh
    ' usprüngliches Recordset zerstören
    rs.Close
    Set rs = Nothing
End With
End Sub

____________________________________________
Nur die Dummen wissen alles selbst am besten.