Kod:
sql = "select [ADI],count([ADI]) as sayi from [LİSTE] WHERE [CALISAN_KODU] like '" & ComboBox1.Text & "%" & _
"' AND [ADI] like '" & ComboBox2.Text & "%" & _
"' AND [DOGUM_TARIHI] like '" & ComboBox3.Text & "%" & _
"' group by [ADI] HAVING [ADI] like '" & ComboBox2.Text & "%" & "' "
Set baglan = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")
Call baglanti
rst.Open sql, baglan, 1, 1
Do While Not rst.EOF
lAdi = rst.Fields("ADI")
lsayi = rst.Fields("sayi")
If lAdi = "ALİ" Then
TextBox1.Value = lsayi
ElseIf lAdi = "VELİ" Then
TextBox2.Value = lsayi
ElseIf lAdi = "LALE" Then
TextBox3.Value = lsayi
End If
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Arkadaşlar konu hakkında bilgisi olan varmı. 
