استخدام فليكس جريد مع DAO

الحمد لله وجدت الحل

SQL = "select * from tbl where filed1 LIKE '" & Text2.Text & "*'"

End If

Set rs = dbs.OpenRecordset(SQL)

MSFlexGrid1.TextMatrix(0, 0) = ""

MSFlexGrid1.TextMatrix(0, 1) = "Hq"

MSFlexGrid1.TextMatrix(0, 2) = "Hm"

MSFlexGrid1.TextMatrix(0, 3) = "Hs"

Do While Not rs.EOF

i = i + 1

MSFlexGrid1.Rows = i + 1

MSFlexGrid1.TextMatrix(i, 0) = i

MSFlexGrid1.TextMatrix(i, 1) = rs!field1

MSFlexGrid1.TextMatrix(i, 2) = rs!field2

MSFlexGrid1.TextMatrix(i, 3) = rs!field3

rs.MoveNext

Loop

شكرا لكم جميعا...............

مشكووووووووووووووووووووووووووووووووووووور

الف شكر لك أخي الكريم