[vbnet]

-
تعديل على السريع...........

كود :

Dim sql As String
sql = " SELECT * FROM [ACCUEILLE] WHERE ([col1] IS NOT NULL) "
If Trim(text1.Text) <> "" Then
    sql = sql & " AND ([col1] = '" & Trim(text1.Text) & "') "
End If
Rs.Open(sql, DB, adOpenStatic, adLockPessimistic)