para conctar o banco de dados via codigo, você tem que primeiro referenciar o  Microsoft ActiveX Data Objects x.x Library.

clica em Project depois em References…

clicando vai aparecer uma lista com muitas referencias procure por:
“ActiveX Data Objects x.x Library” eu estou usando a “ActiveX Data Objects 2.7 Library” depois de achar basta selecionar e clicar em ok

Agora vamos ao codigos, primeiro:

Crie três variáveis

Dim conect As New Connection
‘Esta vai ser a conexão com o banco de dados

Dim rs As New Recordset
‘esta vai ser o recordset

Dim caminho As String
‘este vai ser o caminho do banco de dados

agora no form_load()

Private Sub Form_Load()

caminho = App.Path & “base.mdb”
‘diga a variável caminho onde esta o banco de dados

conect.Provider = “Microsoft.Jet.OLEDB.4.0″
‘diga a variável conect qual o provedor de banco de dados você esta utilizando

conect.Open caminho
‘aqui você abre o banco de dados

rs.Open “pessoa”, conect, adOpenStatic
‘aqui conecta a variavel RS (recordset) a tabela do banco de dados aberto anteriormente

agora adicione ao seu projeto um text1, clique duas vezes sobre ele depois coloque isso

Text1.text = rs(0)
‘aqui você esta dizendo ao formulário que o text.text vai ser igual ao primeiro campo da tabela pessoa do bando de dados base.mdb.

End Sub

pronto você fez uma conexão com um banco de dados via código, simples não?