Como conecto visual basic a una base de datos?

[trompeta0]

lo mejor es que conectes la base de datos por programacion y no por diseño.

Si usas DAO primero tienes que convertir tu base de datos Acces 2000 a 97 y usas lo siguiente:
Crea el siguiente modulo:
Sub conet(Data As Data, Source As String)
On Error GoTo errores
strdbpath = App.Path & "\Base.mdb"
Data.DatabaseName = strdbpath
Data.RecordSource = Source
Data.Refresh
Exit Sub
errores:
End Sub

Luego en cada form donde uses un data en la funcion activate() de este o en load() pones conet data, "tabla" o "sql" de esa forma conectas el data a la tabla que quieras de la base de datos, o usas algun sql especifico.

Si usas ADO usas esta funcion
Sub Rstconet(rst As Recordset, Source As String)
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source= App.Path & \Base.mdb"
Set rst = New Recordset
rst.Open Source, db, adOpenStatic, adLockOptimistic
End SuB
Y al igual que con el DAO vas al form a la funciones que te dije antes y colocas rstconet, "tabla" o "sql"