how do i show DB Access datasheet in vb program

[peacer]

hi, experts, how do i shoe the db Access datasheet in the vb program.....

my previous code is this:

Dim db As Database
Dim ws As Workspace
Dim Rst As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(MyConn)
Set Rst = db.OpenRecordset("SELECT * FROM " & month.Text & " ORDER BY (invoiceno)", dbOpenDynaset, dbReadOnly)

Do While Not Rst.EOF
cmbDr.AddItem Rst.Fields("invoiceno")
Rst.MoveNext
Loop

----------------------------------------------
but i doesnt work.....
do anyone have a better idea of showing the DB Access datasheet......

Ah Xing

[RhinoBull]

You keep saying "showing the DB Access datasheet" but you're only attempting to load one field ("invoiceno") into some combobox ...
So, what is it that you need to get from db and display on the form ???
Be more specific, please.

[johnpc]

Dim db As Database
Dim ws As Workspace
Dim Rst As DAO.Recordset


Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(MyConn)
Set Rst = db.OpenRecordset("SELECT * FROM " & month.Text & " ORDER BY (invoiceno)", dbOpenDynaset, dbReadOnly)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'add a datagrid to your projet
Set DataGrid1.DataSource = Rst
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''Do While Not Rst.EOF
'''''''''''''cmbDr.AddItem Rst.Fields("invoiceno")
''''''''''''''''Rst.MoveNext
''''''''''''''''Loop

[peacer]

actually this is a code i get from someone and it is not working so i'm asking if anyone knows how to load the whole datasheet into the vb prgrams anot....so do you know RhinoBull...??

Ah Xing

[RhinoBull]

Sorry for late respond ...
You may use Datagrid control and use technic that is already posted by johnpc.