[اسلام الكبابى]

هل من كود سهل بسيط بدلآ من هذا الكود المعقد الغبى

For I = 1 To NUM

Namee(I) = txtFields(I).Text

Next I

       Set RS = New ADODB.Recordset

      If NUM = 2 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "'", db, adOpenStatic, adLockReadOnly: GoTo 10

      If NUM = 3 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "' AND Name3 like '" & Namee(3) & "'", db, adOpenStatic, adLockReadOnly: GoTo 10

      If NUM = 4 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "' AND Name3 like '" & Namee(3) & "' AND Name4 like '" & Namee(4) & "'", db, adOpenStatic, adLockReadOnly: GoTo 10

      If NUM = 5 Then RS.Open "select * from TABLE1 where Name1 like '" & Namee(1) & "' AND Name2 like '" & Namee(2) & "' AND Name3 like '" & Namee(3) & "' AND Name4 like '" & Namee(4) & "' AND Name5 like '" & Namee(5) & "'", db, adOpenStatic, adLockReadOnly

10  Print RS.RecordCount

ولكم ألف شكر