Dim SQLStatement As String
Dim ResultQuery As Recordset
....
'Die Variable SQLStatement bekäme hier eine SQL-Abfrage als Wert
....
Set ResultQuery = DBconn.Execute(SQLStatement)
 
Set DataGrid1.DataSource = ResultQuery'<--Hier kommt der Fehler
DataGrid1.Refresh