Private Sub Form_Load()
 
If DataEnv.rsSQL_Offene.State = 1 Then DataEnv.rsSQL_Offene.Close
 
SQL = "SELECT Sparkassenvermittlungen2002.* FROM Sparkassenvermittlungen2002" & _
  "WHERE Sparkassenvermittlungen2002.Ok = 'False' OR" & _
  "Sparkassenvermittlungen2002.Mahnen = 'True'"
 
DataEnv.rsSQL_Offene.Open SQL, , adOpenDynamic, adLockOptimistic
 
Set adoPrimaryRS = DataEnv.rsSQL_Offene
 
For Each xField In Me
    If xField.Tag = "DataFresh" Then
        With xField
        Set .DataSource = adoPrimaryRS
        .DataMember = rsSQL_Offene
        .DataField = .Name
        End With
    End If
Next
 
DataGrid1.Rebind
DataGrid1.Refresh
End Sub

Private Sub Form_Unload(Cancel As Integer)
adoPrimaryRS.Close
Set adoPrimaryRS = Nothing
If DataEnv.rsSQL_Offene.State = 1 Then DataEnv.rsSQL_Offene.Close
End Sub