Dobrey den ali noch
Dim t10 As String
Dim t11 As String
t23 = Str(cal1.Day) & "." & Str(cal1.Month) + "." & Right(Str(cal1.Year), 2)
txt10.Text = Format(t23, "dd.mm.yy")
t10 = Format(t23, "yymmdd")
t11 = lnum.Text
SQL = "Select * From tab_artikel Where Right(tab_artikel.SWT_Artikelnummer, 6)= t10 AND tab_artikel.Ku_Nr = t11 "
rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
Debug.Print "Recordset Object Created"
Adodc2.Refresh
Set Adodc2.Recordset = rs
если задаю такои код не хоцхет искать а вот если убераю AND tab_artikel.Ku_Nr = t11 то всо нормалек но мне надо сделать вибор по двум полям
Надеюс не остатса без внимания