سلام من می با کد زیر جای چنتا حرفو باهم با کد 


Private Sub Command1_Click()

For i = 1 To Adodc1.Recordset.RecordCount

Text1 = Adodc2.Recordset.Fields("names")

Text4 = Replace(Text1, "ي", Text2)

Adodc1.Recordset.Fields("names") = Text4

Print Text4

Adodc1.Recordset.MoveNext

Next i

End Sub

عوض کنم ولی این ارورو میده
untitled.JPG

ممنون می شم کمکم کنید