By using ADODB connection, recordset we can connect with Access database & query for records.
Option Explicit
Dim con,rs
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.provider="microsoft.jet.oledb.4.0"
con.open"C:\Program Files\Microsoft Visual Studio\VB98\biblio.mdb"
rs.open"select*from Authors",con
dim var
Do while not rs.eof
var=var+ rs.fields("author")
rs.movenext
Loop