para vc utilizar ADo não é dificil veja
Primeiro Vá em PROJECT / REFERECENCES e faça referencia a microsoft ActiveX 2.8 Object Library
para fazer a conexão uso em um módulo a seguinte função
Global Conexao As New ADODB.Connection
Public Function Conecta(ByVal Valor As Boolean)
If Conexao.State = 1 Then
Conexao.Close
Set Conexao = Nothing
Valor = True
End If
If Valor = True Then
Conexao.Open "provider=microsoft.jet.oledb.4.0; data source=" & App.Path & "Banco.mdb;jet OLEDB:System Database=system.mdw;"
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function
com a função acima é facil trabalhar com ADO
bom no form principal abro a conexao assim
Private Sub Form_Load()
Conecta True
End Sub
' pronto estaremos coma conexão aberta
'alguns gostam de declarar todas recordsets em um módulo eu particularmente só declaro 'quando vou usa-las, veja o exemplo abaixo.
'Para Inserir Dados No banco
Private Sub BtnInserir_Click()
conexao.Execute("INSERT INTO tabela (Campo1,Campo2,Campo3) Values ('Valor1','Valor2','Valor3')")
End Sub
'Para Alterar
Private Sub BtnAlterar_Click()
conexao.Execute("UPDATE tabela SET campo1= 'ValorNovo1',Campo2 = 'ValorNovo2',Campo3 = 'ValorNovo3' WHERE campo1 = 'valor1'")
End Sub
'Para excluir
Private Sub BtnExcluir_Click()
conexao.Execute("DELETE FROM tabela WHERE campo = 'Campo1'")
End Sub
'Agora somente na consulta declaramos uma Recoordset
Private Sub BtnConsulta_Click()
Dim RS As RecordSet
sSQL = "SELECT * FROM tabela WHERE campo1 = 'valor'")
Set RS = Conexao.Execute(sSQL)
Do While Not RS.EOF
List1.AddItem RS!Campo1 & RS!Campo2
RS.MoveNext
Loop
End Sub
Agora fechamos a Conexao no Unload do form principal
Private Sub Form_Unload(Cancel As Integer)
Conecta False
End Sub
viu basta seguir estes exemplos acima e não terá dificuldades
isto acho que ja serve pra vc começar
