code:

---

$objConn = DBConnOpen('DRIVER={Microsoft Access Driver (*.mdb)}; UID=; PWD=; DBQ=C:\test.mdb')
$recordset = DBRecordsetOpen($objConn,'SELECT * FROM MyTable')

if $objConn
$numRecords=$recordset.RecordCount
? "Records: "+$numRecords
else
?"error"
endif

$retcode = DBRecordsetClose($recordset)
$retcode = DBConnClose($objConn)

---

code:

---

Dim connect, connect_str, query, output, msg

Set connect = CreateObject("ADODB.Connection")
connect_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb"
connect.Open connect_str

query = "SELECT * FROM MyTable"
Set query = connect.Execute(query)

Do while not query.EOF
output = query("MyRecord")
query.movenext
loop

msg = "Results: " &output
msgbox msg

---

code:

---

break on

$connect = CreateObject("ADODB.Connection")
$connect_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb"
$connect.Open($connect_str)

$query = "SELECT * FROM MyTable"
$query = $connect.Execute($query)

while not $query.EOF
$output = $query("MyRecord")
$query.movenext
loop

? "Results: " + $output

---

code:

---

 $output = $query("MyRecord") 

---

code:

---

 $output=$output+$query.Fields("MyRecord").value 

---