>can anybody give some sample codes of DAO (say MS-Access)?
>
>Thanks
Dim db as Database
Dim rs as Recordset
Set db = OpneDatabase("C:\MyDB.mdb")
Set rs = db.OpenRecordset("MyTable")
do while not rs.eof
msgbox rs("MyField")
rs.MoveNext
loop
rs.close
db.close
set rs = nothing
set db = nothing
Hope this help.