Extracting database values into an MS Word Report???????

[ftpdoo]

Hi,

As a new user to VBA excuse any terms which are wrong. I'm using MS Word 2000 to generate reports via VBA from a MS Access 2000 database.

The problem:
-----------------
I already know how to print preview and generate a report from static values stored within the VBA code.

ie: Sub Fill_Items()

Items(1, 1) = "ACM001"
Items(1, 2) = "ACME CD-ROM"
Items(1, 3) = "1"
Items(1, 4) = "80.00 $"
Items(1, 5) = "80.00 $"

Items(2, 1) = "ACM002"
Items(2, 2) = "ACME FDD"
Items(2, 3) = "1"
Items(2, 4) = "20.00 $"
Items(2, 5) = "20.00 $"

End Sub

But how do I take items from a database instead????
I'm using an ODBC link to a Microsoft Access database. The values that I wish to extract from the database is values stored within columns.

The two columns I wish to extract is one called:
SequenceNo (Integer) and Item (String)


Thanks.. This would be a HUGE help.
Jonathan..

 

[ide]

something like this (DAO):

Sub msgValues()
Dim openDB As Database
Dim rst As Recordset, i As Integer
On Error Resume Next
Set openDB = OpenDatabase("databasePath\mentes_max.MDB&quot
Set rst = openDB.OpenRecordset("select * from SaveTable&quot 'open table in the specified database
rst.movelast
rst.movefirst
While Not rst.EOF
For i = 1 To rst.Fields.Count
MsgBox rst.Fields(i).Value
Next i
rst.MoveNext
Wend
openDB.Close
End Sub

ide