o basico então é isso:
Primeiro va no menu Project do VB
Depois, quase no final do menu va no item References
Na caixa de dialogo que aparece procure pelo item Microsoft ActiveX Data Objects 2.8 Library, marque a caixa de seleção do lado deste item e click em OK
Agora vamos ao código, lembrando que se vc não fizer os passos que acabei de passar o codigo não irá funcionar.
Insira um Módulo no projeto assim;
Click no Menu Project do VB
click em Add Module
Agora coloque dentro do módulo:
Public cnn As New ADODB.Connection
com isto vc está criando sua conexão com o Banco de dados, e o nome da conexão é "cnn" lembre-se disso e vamos a frente
No Form
No evento Form_load coloque o codigo abaixo:
Private Sub Form_Load()
On Error GoTo errconexao
cnn.ConnectionString = "provider = microsoft.jet.oledb.4.0;" & _
"data Source = " & App.Path & "Email.mdb;"
cnn.CursorLocation = adUseClient
cnn.Open
Exit Sub
errconexao:
With Err
If .Number <> 0 Then
MsgBox " houve um erro na conexão com o banco de dados." & _
vbCrLf & " O sistema será encerrado.", vbCritical + vbOKOnly + vbApplicationModal, "erro na conexão"
.Number = 0
Set cnn = Nothing
End
End If
End With
End Sub
Este é o código para fazer a conoexão com o banco de dados beleza ? tenta, se quando vc clicar na seta para rodar o programa não aparecer mensagem de erro é porque a conexão ja deu certo então falta o restante, mas isso eu te passo depois que vc fizer estes primeiros passos e estiver tudo OK, valeu?
