With Forms!frm_wps.Grid1
    .LockUpdate True
Set .Recordset = CurrentDb.OpenRecordset("SELECT * FROM tbl_Auftrag Where " & _
  BuildCriteria("tbl_auftrag.kd_indate ", dbDate, "<=" & _
  Forms!frm_wps.txt_datum) & " AND tbl_auftrag.abnahme_erl = False ")
    .DoSort "kd_indate"
    .LockUpdate False
    .Refresh
    .Row = 1
    End With
    End If

 
    With Forms!frm_wps.Grid1
    .LockUpdate True
    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * FROM tbl_Auftrag Where " & BuildCriteria( _
      "tbl_auftrag.kd_indate ", dbDate, "<=" & Forms!frm_wps.txt_datum) & " AND" & _
      "tbl_auftrag.abnahme_erl = False", cn, adOpenKeyset, adLockOptimistic
    .DoSort "kd_indate"
    .LockUpdate False
    .Refresh
    .Row = 1
    End With
    End If