vb6 لماذا هذا الكود لا يعمل؟

[عمر45]

السلام عليكم
هذا الكود لا يعطي نتائج صحيحة و كاملة
أرجو منكم التصحيح
و جزاكم الله خيرا

Dim z
Dim i
Dim x As String
Adodc1.*******
Adodc1.Recordset.MoveFirst
x = InputBox("ادخل السن")
Adodc1.Recordset.Find "age = " + x + ""
If Not Adodc1.Recordset.EOF Then
    I = 1
    Do While Not Adodc1.Recordset.EOF
 
        z = z & vbNewLine & I & "-" & " " & Adodc1.Recordset.Fields("name") & " " & Adodc1.Recordset.Fields("surname")
        Adodc1.Recordset.MoveNext
    I = I + 1
    Loop
MsgBox z
 
    Else
 
MsgBox " لا يوجد شخص بهذا السن "
End If
Adodc1.Recordset.Close
End Sub