جستجو به صورت تركيبي و پيشرفته

[mohsen_iceman2000]

سلام دوستان ؛ من يك فرم مشتريان دارم كه مي خواهم به صورت تركيبي نام ، نام خانودگي ، تلفن و ... را با هم جستجو كنم
اين 2 تا كد رو نوشتم ولي هيچ كدوم به صورت درست عمل نمي كنند

مشكل كد 1 اينه كه كل اطلاعات رو جستجو نمي كنه بخاطر اينكه اگر نام خالي باشه به sql كاراكتر "" ميفرسته



rsMoshtari.Open " select * from res_tblmoshtari where FirstName Like '%" & FirstName.Text _
& "%' and NumberEshterak Like '%" & Eshterak.Text & "%' and LastName Like '%" & LastName.Text _
& "%' and TelMahal Like '%" & telephone.Text & "%' and Mobeil Like '%" & S_mobile.Text _
& "%' and CodeArayeshgar Like '%" & Arayeshgar_Code_Search.Text _
& "%' and CodeRank Like '%" & Code_rank.Text & "%' and ConeAshnaei Like '%" & NoeMoshtariCode.Text _
& "%' and CodeJob Like '%" & JobCode.Text & "%'", con, adOpenKeyset, adLockOptimistic
Set GridInfo.DataSource = rsMoshtari
Call FillGridInfo



مشكل كد 2 اينه كه فقط يه گزينه رو جستجو مي كنه



On Error GoTo ErrHandel

Dim RsSearch As New ADODB.Recordset
Dim VLastName As String
Dim VEshterak As String
Dim VFirstName As String
Dim VTel As String
Dim VMobile As String
Dim VCodeArayeshgar As String
Dim VCodeJob As String
Dim VCodeAshnaei As String
Dim VRank As String
Set rsmoshtari = New Recordset

If Not FirstName.Text = "" Then

VFirstName = VFirstName & " Where FirstName Like '%" & FirstName & "%' "
End If
If Not Eshterak = "" Then
VEshterak = VEshterak & " Where NumberEshterak Like '%" & Eshterak & "%' "
End If
If Not LastName.Text = "" Then

VLastName = VLastName & " Where LastName Like '%" & LastName & "%' "
End If
rsmoshtari.Open " select * from res_tblmoshtari " & VLastName & VFirstName & VEshterak, con, adOpenKeyset, adLockOptimistic
Set GridInfo1.DataSource = rsmoshtari