run-time erro 3709

bom vou tentar ajuda-lo mas para isto deverá fazer algumas alterações no seu sistema

veja bem

Primeiro em um módulo criei a conexão

Global Conexao As New ADODB.Connection

Public Function Conecta(ByVal Valor As Boolean)
If Valor = True and Conexao.State = 0 Then
Conexao.Open "provider=microsoft.jet.oledb.4.0; data source=" & App.Path & "seu_banco.mdb;jet OLEDB:System Database=system.mdw;"
Else
Conexao.Close
Set Conexao = Nothing
End If
End Function

Bom com a função acima e um módulo é facil fazer a conexão

no Load do form Principal de seu projeto abra a conexão assim:

Conecta True 'abre a conexao

feito isso é só fazer as pesquisas, inclusões e exclusões assim

1 - Consultar um unico registro:

Dim RS As Recordset

sSQL = "SELECT * FROM tabela WHERE nome = '" & txtNome.Text & "'"

Set RS = Conexao.Execute(sSQL)

IF RS.EOF and RS.BOF then Exit Sub

txtSobrenome = RS!Sobrenome

acima fiz o exemplo de como fazer uma consulta para retornar apenas um resultado, agora iremos fazer a consulta para retornar varios registros da tabela e exibir em um listbox

Dim RS As Recordset

sSQL = "SELECT * FROM tabela WHERE sexo = 'M'"

Set RS = Conexao.Execute(sSQL)

Do While Not RS.EOF

List1.AddItem RS!Nome

RS.MoveNext

Loop

acima criei uma consulta que retorna todos que forem do sexo masculino 'M'

agora a parte mais fäcil Incluir, Excluir e Alterar

A - Incluir

Private Sub btnIncluir_Click()

Conexao.Execute("Insert Into tabela (id, nome, sexo) values (1, 'joao', 'M')")

End Sub

B - Excluir

Private Sub btnExcluir_Click()

Conexao.Execute("DELETE FROM tabela WHERE id = 1")

End Sub

C - Alterar

Private Sub btnAlterar_Click()

Conexao.Execute("UPDATE tabela SET nome = 'pedro', sexo = 'M' WHERE id = 1")

End Sub

bom acima dei exemplo de todos procedimentos para fazer uma conexao ADO de forma facil e estavel.

lembre-se de fechar a conexao no unload do form Principal.

Conecta False ' Fecha a conexão

Agora vamos a algumas considerações

a forma de consulta inclusão ou exclusão vai depender do tipo do campo

se o campo for do tipo texto vc deve usar a aspas simples ex:

select * from tabela where nome = 'marcelo'

se for do tipo numero não se usa aspas ex:

select * from tabela where id = 1

e se for do tipo data e hora você deverá usar o (#) e o formato da data é mm/dd/yyyy

ex:

select * form tabela where datanasc = #12/31/1980#

onde 12 é o mes e 31 é o dia, então esta consulta deveira ficar assim, no compo de data digite da forma correta dd/mm/aaaa e formate na consulta apenas.

ex:

sSQL = "SELECT * FROM tabella WHERE DataNasc = #" & Format(txtDataNasc,"mm/dd/yyyy") & "#""

pronto sua consulta sairá correta

evite usar datas em campo Texto, vc vê muitos topicos em que pessoas usam o campo texto para evitar esta formatação porém em um consulta entre datas esta campos texto trarão resultados errados, vou explicar porque.

suponha que você possua as seguintes data

10/12/2003

02/07/2005

16/01/2010

veja como o campo texto irá interpretar estas datas

10122003

02072005

16012010

ou seja 02072005 é menor que 10122003, viu a confusão que ele pode causar, se este campo for do tipo data/hora isto não acontecerá.

bom vou ficar por aqui espero que minas dicas lhe sejam uteis.