سؤال بخصوص اداةData عاجلللل لو سمحتوا

if NOT data1.recordset.EOF then

'change 'fields(0)' to the number of the field you want to

'show if field number is 1 then write 'fields(1)' and so on

text1.text=data1.recordset.fields(0).value

'if we reached the end then move to the first record

if data1.recordset.EOF then

data1.recordset.movefirst

'if there are NO records then exit sub

elseif data1.recordset.BOF and _

data1.recordset.EOF then

exit sub

'OR just move to the next record

else

data1.recordset.movenext

end if

end if

(g)