Em ADO:
Primeiro vá no menu "Project|References" marque a opção Microsoft ActiveX Data Objects X.X Library onde X.X é qualquer versão.
Dim Cnn as ADODB.Connection
Set Cnn = New ADODB.Connection
'Conexão com access
Cnn.CursorLocation = adUseClient
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:|MeuBD.mdb"
'Gravando dados
Cnn.Execute "INSERT INTO Tabela (Codigo,Nome) VALUES (1,'Joao')"
Com um textbox só modifica pra isto:
Cnn.Execute "INSERT INTO Tabela (Codigo,Nome) VALUES (1,'" & txtNome & "')"
veja estes link:
Este link traz artigos passo-a-passo. Pelo q vi por cima é DAO mas dá pra vc ter uma boa base.
Qq dúvida posta ae...
t+
