[سعود]

اخذت الكود من حدث الكومبوبوكس مع التعديل التالي ووضعته بالزر المطلوب

PHP كود :

"select * from aa11 where a1 not in (select a1 from ALMSTLM)", cn, adOpenKeyset, adLockOptimistic 


اقصد الاستعلام فقط والباقي  تغييره سهل
حدث الزر كامل كالتالي:

PHP كود :

Grid3.Rows = 1
If rn11.State Then rn11.Close
rn11.Open "select * from aa11 where a1 not in (select a1 from ALMSTLM)", cn, adOpenKeyset, adLockOptimistic
If rn11.RecordCount <> 0 Then
For k1 = 1 To rn11.RecordCount
Grid3.Rows = Grid3.Rows + 1
Grid3.TextMatrix(k1, 0) = k1
Grid3.TextMatrix(k1, 1) = rn11!a1
rn11.MoveNext
Next
End If