وبلاگ رسمی مهدی غلامی میاندهی

Dim rst1 As New ADODB.Recordset
Dim cmd1 As New ADODB.Command
Set con1 = New ADODB.Connection
Set cmd1 = New ADODB.Command
Set rst1 = New ADODB.Recordset
con1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db\db" & Trim(tyear) + ".mdb" & ";Persist Security Info=False"
cmd1.CommandText = "select * from village_off where ((sal='" & Trim(Text1.Text) & "') and ((mah='" & Trim("ÝÑæÑÏíä") & "')or(mah='" & Trim("ÇÑÏíÈåÔÊ") & "')or (mah='" & Trim("ÎÑÏÇÏ") & "')) and (name_shabakeh='" & Trim(t2) & "') and (name_shahr='" & Trim(t3) & "')and (name_village=" & (t4) & ") and (name_arkaze_behdashti_darmani=" & (t5) & ")and (population=" & Trim(t6) & ")and (total_water=" & Trim(t7) & ") and (begsazi_water=" & Trim(t8) & ") and (total_mikrobi=" & Trim(t9) & ") and (namatloub_mikrobi=" & Trim(t10) & ") and (chemical=" & Trim(t11) & ") and (num_home_boil_water=" & Trim(t12) & ") and (total_home_mother_clr='" & Trim(t13) & "') and (total_mother_clr=" & Trim(t14) & ") and (zero_mother_clr=" & Trim(t15) & ") and (other_mother_clr=" & Trim(t16) & ") )"