KODLAR
If adi.Text = "" Then
MsgBox "Boş Arama Gerçekleştirilemez"
Else
Dim conn As Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=microsoft.jet.oledb.4.0"
conn.Open App.Path & "\db.mdb"
Set ac = New ADODB.Recordset
SQL = "select * from Tablo1 where adi ='" & CStr(adi.Text) & "' and soyadi ='" & CStr(soyadi.Text) & "' "

ac.Open SQL, conn, 1, 3
tckimlikno.Text = ac("tckimlikno")
kayittarihi.Text = ac("kayittarihi")
dogumtarihi.Text = ac("dogumtarihi")
adres.Text = ac("adres")
tedavi.Text = ac("tedavi")
telefonno.Text = ac("telefonno")
ac.Update
ac.Close
End If