Dim sql As String
    Dim rs As New ADODB.Recordset
    sql = "Select * from pflanzenschutzmittel"
    If rs.State = adStateOpen Then rs.Close
    rs.CursorLocation = adUseClient
 
    If clOpenADORecordset(0, rs, sql, crGenErrModeAnzeigeUndWeiter, _
      adOpenDynamic, adLockOptimistic).Success Then
        Set Adodc1.Recordset = rs
        Set DataGrid1.DataSource = Adodc1
    End If

If today was perfect, there would be no need for tomorrow!