Visual Basic - Conectar Base de datos access con Visual Basic 6

Como se debe configurar correctamente esto:

Sub Main()
Dim X
Open App.Path & "\path.txt" For Input As #1
Line Input #1, X
Set db = OpenDatabase(X & "\ventas.mdb")
Close #1
frmMain.Show
End Sub


El programa no logra correr por que me indica que los parametros no son corretos luego trate de hacerlo asi:

Sub Main()
Dim db As dao.Database
Dim rs As Recordset
Dim cn As Connection
Open App.Path & "\path.txt" For Input As #1
Line Input #1, X
Set db = OpenDatabase(X & "\ventas.mdb")
Close #1
frmMain.Show
End Sub

Y ahi me indica que la variable no esta definida, sin embargo, aun que me deja de indicar el error de la BD aun no puedo saber si la tomo bien por el error que me arrojo delas equices :D.

Que significan las "X"? alguien me podria recomendar un manual bueno de visual basic que vaya de lo basico a lo avanzado.

Gracias.