Uygulama Sınavı S-1

İsmi A ile Başlayan Kişi Sayısı
Option Compare Database
Sub soru1()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Tablo1")
toplam = 0
Do Until rst.EOF
If Left(rst.Fields("ad").Value, 1) = "a" Then
toplam = toplam + 1
End If
rst.MoveNext
Loop
MsgBox (toplam)
End Sub