Visual Basic - conexion vb

quisiera que me envien las lineas para conectar una base sql con viasual basic 6, sin utilizar el objeto, todo por lineas de comendos

Option Explicit
Dim db As New ADODB.Connection
Dim strconexion As String

Private Sub Form_Load()
Set db = New ADODB.Connection
strconexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\trabajo practica 4\tienda.mdb"
db.Open strconexion