لطفا به من بگوييد اشكال اين كد كجاست ؟
Dim db As Database
Set db = CurrentDb
Dim rst As Recordset
Dim strSQL As String
strSQL = "SELECT percode,name,family,cor FROM persenel WHERE (((persenel.percode) Like '*" & Text0.Value & "*'))"
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
'Set rst = db.Execute
Do Until rst.EOF
Text0.Text = rst.Fields(0).Value
Text2.Text = rst.Fields(1).Value
Text4.Text = rst.Fields(2).Value
Text6.Text = rst.Fields(3).Value
rst.MoveNext
Loop