Pessoal uso access, com activex data oljects 2.7 library, activex data oljects 2.7 library e ado ext 2.5 for ddl and security, nao toh coseguindo salvar
no generals
Public conexao As ADODB.Connection 'nao coloque new aqui
Public rs As ADODB.Recordset 'nao coloque new aqui
Private Sub Form_Load()
Set conexao = New ADODB.Connection
Set rs = New ADODB.Recordset
conexao.Provider = "Microsoft.Jet.OLEDB.4.0"
conexao.Open "C:Teste.mdb" 'abre o banco de dados
call carrega
End Sub
Public Sub carrega()
rs.Open "Select * from Cad", conexao, adlockoptimistic, adopendynamic
Text1 = rs(0) 'Carrega o campo 1 a Text1
Text2 = rs(1) 'Carrega o campo 2 a Text2
End Sub
Private Sub Command2_Click()
rs.AddNew 'Adicionar um registro
rs.Fields(0) = "" & Text1.Text
rs.Fields(1) = "" & Text2.Text
rs.Update 'Atualiza o Banco de Dados
MsgBox "Alteração Salva com Sucesso!"
rs.Move Min 'Move para o Primeiro Registro
End Sub