If bWertIsDate Then
                sSQLSearchFields = sSQLSearchFields & Format( _
                  frmDIR_STAM_Import.grd_imp.Text(a, CInt(sFields(0))), _
                  "YYYY-MM-DD") & "' AND "
    ElseIf frmDIR_STAM_Import.grd_srch.Text( _
    frmDIR_STAM_Import.grd_srch.FindItem(sFields(1), 2), 5) <> vbNullString Then
                sSQLSearchFields = sSQLSearchFields & _
                frmDIR_STAM_Import.grd_srch.Text( _
                frmDIR_STAM_Import.grd_srch.FindItem(sFields(1), 2), 1) & "'" & _
                "AND "
    Else
                sSQLSearchFields = sSQLSearchFields & _
                  frmDIR_STAM_Import.grd_imp.Text(a, CInt(sFields(0))) & "' AND" & _
                  ""
    End If
    Erase sFields
    Next i
    'letztes satzzeichen entfernen
    sSQLSearchFields = Left(sSQLSearchFields, Len(sSQLSearchFields) - 4)
 
    rs.Open sSQL & "WHERE " & sSQLSearchFields & " " & sSQLOrderBy & " " & IIf( _
      frmDIR_STAM_Import.sevOption1(0).Value = True, " Limit 1", "") & "", _
      dbcon, adOpenKeyset, adLockReadOnly
    If Not rs.EOF Then
    For i = rs.Fields.Count To 1 Step -1
    frmDIR_STAM_Import.grd_imp.Text(a, frmDIR_STAM_Import.grd_imp.Cols - ( _
      rs.Fields.Count - i)) = IIf(IsNull(rs.Fields(i - 1)), "", rs.Fields(i - _
      1))
    Next i
    End If
    rs.Close
Next a
 
 
 
frmDIR_STAM_Import.MousePointer = vbDefault
 
MsgBox "Quelldatei erfolgreich aktualisiert!", vbInformation, ""
bUpd = False
Exit Sub
Err_Handl:
MsgBox err.Number & " " & err.Description, vbCritical, ""
End Sub