Veja a forma completa de se usar o ADO para que não Haja Duvidas.
Primeiro faça vá em Project/References... e selecione Microsoft ActiveX 2.8 object library
cole o seguinte código em um módulo.
Global Conexao As New ADODB.Connection
Public Function Conecta(ByVal Valor As Boolean)
If Valor = True Then
Conexao.Open "provider=microsoft.jet.oledb.4.0; data source=" & App.Path & "\nome_do_banco.mdb;jet OLEDB:System Database=system.mdw;"
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function
depois no form basta fazer o seguinte:
PARA SALVAR
Private Sub btnSalvar_Click()
Contecta True
Conexao.Execute ("INSERT INTO tabela(campo1,campo2,campo3) Values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "')")
Conecta False
End Sub
Para apagar
Private Sub btnExcluir_Click()
Conecta True
Conexao.Execute ("DELETE * FROM tabela WHERE campo1=" & Text1.Text & "'")
Conecta False
End Sub
Para alterar
Private Sub btnAlterar_Click()
Conecta True
Conexao.Execute ("UPDATE tabela SET campo1='" & Text1.Text & "', campo2='" & Text2.Text & "', campo3='" & Text3.Text & "' WHERE campo1='" & Text1.Text & "'")
Conecta False
End Sub
Agora para Pesquisar e exibir em Um listBox
Private Sub btnListar_Click()
Dim RS As Recordset 'Aqui é necessário declarar o recordset
Conecta True
SQL = "SELECT * FROM tabela"
Set RS = Conexao.Execute(SQL)
Do While Not RS.EOF
List1.AddItem RS!campo1 & " - " & RS!campo2 & " - " & RS!campo3
RS.MoveNext
Loop
Conecta False
End Sub
Vamos a algumas explicações
Primeiro
Conecta True 'abre a conexão
Conecta False 'Fecha a Conexão
aconselho a estudar um pouco de SQL pois agora você irá utilizar bastante.
Espero que seja esta sua duvida.
