Erro Em Conexao Ado

[Arckyz]

olá eu to fazendo um aconexao ado pela primeira vez

e ao tentar rodar o programa exibiu esse erro:

Run-timer error'-2147217904 (80040e10)':

Nenhum valor foi fornecido para um ou mais parametros necessarios

a baixo esta o codigo e... e a linha de codigo que aparece o erro é essa:

também.Open "SELECT * FROM tabfuncionario ORDER BY NOME ", "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\db_97.mdb", adOpenStatic, adLockOptimistic

A baixo esta o codigo Fonte completo.. alguém sabe como arrumar esse erro??

lembrando que eu já declarei em um modulo a variavel BD

Dim WithEvents também As ADODB.Recordset

Private Sub btn_primeiro_Click()

EXIBIRDADOS

também.MoveFirst

End Sub

Private Sub btn_proximo_Click()

EXIBIRDADOS

também.MoveNext

End Sub

Private Sub btn_ultimo_Click()

EXIBIRDADOS

também.MoveLast

End Sub

Private Sub btn_voltar_Click()

EXIBIRDADOS

também.MovePrevious

End Sub

Private Sub Form_Load()

Set BD = New ADODB.Connection

BD.CursorLocation = adUseClient

BD.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\db_97.mdb"

BD.Open

Set também = New ADOR.Recordset

também.Open "SELECT * FROM tabfuncionario ORDER BY NOME ", "Provider=Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\db_97.mdb", adOpenStatic, adLockOptimistic

EXIBIRDADOS

End Sub

Public Sub EXIBIRDADOS()

txt_nome.Text = ""

txt_codigo.Text = ""

On Error Resume Next

txt_nome.Text = também!nm_funcionario

txt_codigo.Text = também!cd_funcionario

On Error GoTo 0

End Sub

[kuroi]

provavelmente o campo NOME não existe na tabela tabfuncionario. ou a tabela tabfuncionario não existe.

[Arckyz]

os dois existe esta certinho o nome

[kuroi]

hum se a conexao é ado, então acho que o certo seria

Provider=Microsoft.Jet.OLEDB.4.0;

em vez de

Provider=Microsoft.Jet.OLEDB.3.51;