---

hit kakak help me...
gw mencari beberapa data dari Microsoft akses.
tapi malah muncul. runtime error 3021.

ne code yang gw pake.
Here is my coding.

Private Sub Command1_Click()
Dim i As Integer
i = 0
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("Country").Value = Text2.Text Then

Text1.Text = Adodc1.Recordset.Fields("Email").Value

Do While i < Text3.Text + 1
Adodc1.Recordset.MoveNext
Text1.Text = Text1.Text & vbCrLf & ";" & vbCrLf & Adodc1.Recordset.Fields("Email").Value
i = i + 1
Loop

Exit Sub
Else
Adodc1.Recordset.MoveNext
End If

Loop
Exit Sub

MsgBox "Customer Name is Not Found!", vbOKOnly, "Warning!!"



End Sub


:?cig?