Visual Basic - como abro una BD access 2000 en el VB 6 ?

agradecere una pronta respuesta

PARA ABRIR UNA BD CON CODIGO:

Public cnn As ADODB.Connection

Public Sub conexion()
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & *****
Exit Sub

' EN LOS ASTERISCOS PON LA RUTA DE TU BASE DE DATOS ENTRE COMILLAS