how do i show DB Access datasheet in vb program

[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