bom eu conecto assim :

 

no modulo

 

Option Explicit

'conecto o banco
Public cnBd As ADODB.Connection

' para o recordset
Public rsCadastro As New ADODB.Recordset

 

Conecto o Banco

 

Public Sub ConectarBd()
On Error GoTo final
Dim sPath As String
'***Abrindo a base de dados
Set cnBd = New ADODB.Connection
cnBd.CursorLocation = adUseClient '**O cursor será gerado ao lado do cliente - será gerado um arquivo temporário no cache da máquina
sPath = App.path & "Banco.mdb"
cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath
Screen.MousePointer = 0
Exit Sub
final:
MsgBox err.Description, vbInformation, err.Number
End Sub

 

 

'desconecto o banco

 

Public Sub DesconectarBd()
cnBd.Close
Set cnBd = Nothing
End Sub

'rotina pra fechar o recordset

Public Sub FecharRsCadastro()
On Error GoTo erro
If rspropri.State = adStateOpen Then '***Se o recordset estiver aberto, feche-o
rspropri.Close
Set rspropri = Nothing
End If
erro:
End Sub

 

' va definir o formulario que aparecera Primierio

Private Sub main()
On Error GoTo final
Screen.MousePointer = 11
ConectarBd
FrmMenu.Show
Screen.MousePointer = 0
Exit Sub
final:
MsgBox err.Description, vbInformation, err.Number & "Sub Main"
End Sub

 

 

dentro do load do formulario

 

 

FecharRsCadastro

 

Set cnBd = New ADODB.Connection
  
    cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "Banco.MDB;Persist Security Info=False"

Set rsCadastro = New ADODB.Recordset
rsCadastro .CursorLocation = adUseServer
rsCadastro .Open "Select Codigo, CodigoImo, * FROM Tbl_Cadastro order by Codigo,CodigoImo asc", cnBd, adOpenKeyset, adLockOptimistic

 

é mais ou menos isso irmao

 

 

Dê uma olhadinha aqui:

 

Olá, Dilon!
Gostaria de sugerir a você alguns códigos básicos para seu problema.

 

- Em um módulo, faça o seguite:

 

Option Explicit

Global db As Database
Global rs As Recordset

 

Public Function OpenDB() As Boolean 'Isto abre o banco de dados...
      On Error GoTo eErro
      Set db = DBEngine.Workspaces(0).OpenDatabase( _
                                 "caminho e arq.mdb", False, False)
      OpenDB = True
      Exit Function
eErro:
      Beep
      MsgBox "Erro nº " & Err.Number & vbCr & vbCr & _
                  "Origem: " & Err.Source & vbCr & "Descrição: " & _
                  Err.Description, vbOKOnly + vbCritical, App.Title & " [Erro]"
      Err.Clear
      OpenDB = False
End Function

 

Public Sub OpenRs(ByVal sSQL As String) '... e isto, as tabelas
      Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
End Sub

 

Public Sub CloseDB() 'Fecha o bd
      db.Close
End Sub

 

Public Sub CloseRs() 'Fecha a tabela
      rs.Close
End Sub

 

- Em um Form (o principal, talvez), use isto:

 

Private Sub Form_Load()

      ...
      If (Not (OpenDB())) Then End 'Veja o código acima...
      ...
End Sub

 

Private Sub Form_Unload(Cancel As Integer)
      CloseDB 
End Sub

 

- Onde for necessário usar as tabelas do bd, use:

 

OpenRs "SELECT * FROM tabela"

rs.AddNew
rs!campoX = valor 'Para atribuir valor a um campo (gravar registros)
rs.Update

var = rs!campoX   'Para recuperar o valor de um campo

CloseRs

---------------------------------------------------------------------------------

 

Lembre-se apenas de referenciar a biblioteca 'DAO' (vá até o menu

[Project -> References...] do VB para fazer isso) no projeto.

 

Este é um jeito profissional de se trabalhar, mas é possível fazer a mesma

conexão de um modo bem mais semples, usando, para isso, o objeto

'Data' (procure-o na 'Toolbox').

 

Ta todo mundo aki colocando codigo.. eu nao quero fazer isso naum...

 

Dilon, soh quero te dar um conselho:

Os caras acima colocaram codigos que usam DAO pra conectar o banco... eu sugiro que vc nao perca tempo aprendendo DAO, que ja esta obsoleto faz tempo...

Pesquisa na net sobre ADO... um bom começo está em www.macoratti.net... tem pelo menos um 30 artigos pra vc ler sobre o assunto... vale a pena perder algumas tardes nesse site...

 

QQ coisa, me add no msn ou me procura aki no forum ou no e-mail...

 

Flw!