Tô aprendendo, então peço desculpas por tantas perguntas...
O modelo novo do Leandro é muito bacana, mas não vou me aventurar por ele ainda, prefiro começar pelo mais simples. Pelo que entendi a conexão do Leandro é externa, ou seja criada num módulo à parte. Já a que você sugeriu José pelo que vi no modelo deve ficar dentro de cada formulário, certo ? Ou tô enganado ? Tentei unir ambas e não deu muito certo. Ficou assim:
Código: Selecionar todos
Dim strConexao As String
Dim strSQL As String
Dim Conn As ADODB.Connection
sql = "SELECT * FROM tblCadastro"
With rstBanco
.AddNew
.Fields("NomeDaEmpresa") = Me.txtNomeEmpresa
.Fields("NomeDoContato") = Me.txtNomeContato
.Fields("CargoDoContato") = Me.txtCargoContato
.Fields("Endereço") = Me.txtEndereco
.Fields("Cidade") = Me.txtCidade
.Fields("Região") = Me.txtRegiao
.Fields("CEP") = Me.txtCEP
.Fields("País") = Me.txtPais
.Fields("Telefone") = Me.txtTelefone
.Fields("Fax") = Me.txtFax
.Fields("HomePage") = Me.txtHomePage
.Update
End With
VAleu