How to create a command button in VB 6 that opens an Access database?

OK so i'm new to VB so i need to create a command button that opens a database table. Then i have to do something to the connect properties of the Data control to let VB move to new records. How do i do this?!How to create a command button in VB 6 that opens an Access database?
check if you need this

================

Private Sub Command1_Click()

Dim varCall

varCall = Shell(';C:\Program Files\Microsoft Office\OFFICE11\msaccess.exe C:\db1.mdb';)



End Sub