Run time error '3001'

[CarolAndrade 0]

Oi Gente !

 

Sou iniciante e estou tentando fazer um sistema de cadastro de clientes. O banco utilizado é Access 2000. O cód de conexão é:

 

 

cnnBancoDeDados.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = " & App.Path & "\CamposCapachos.mdb;"

cnnBancoDeDados.Open

Unload Me

frmPrincipal.Show

Exit Sub

 

Até aqui tudo bem. Ai abre uma tela principal... Quando clico em Clientes, eu quero que qdo abrir esta tela de cadastro, abra a tabela de clientes, se tiver registros me mostre, atualizando os campos com os dados, caso contrário, deixa em branco e a pessoa inclui. Fiz o seguinte:

 

Private Sub Form_Load()

 

'Variáveis para referenciar o banco de dados e a tabela Clientes

Dim cnnComando As New ADODB.Command

Dim rsTBClientes As New ADODB.Recordset

 

With cnnComando

.ActiveConnection = cnnBancoDeDados

.CommandType = adCmdTableDirect

.CommandText = "tab_clientes"

Set rsTBClientes = .Execute 'Permite manipular os registros da tabela cadastro de clientes.

End With

 

'Desabilita o botão salvar

Toolbar1.Buttons(5).Enabled = False

 

'Desabilita todos os campos

fraTipoPessoa(0).Enabled = False

txtCodCliente.Enabled = False

txtClienteDesde.Enabled = False

txtEmpresa.Enabled = False

txtContato.Enabled = False

txtEndereco.Enabled = False

txtBairro.Enabled = False

txtCidade.Enabled = False

txtEstado.Enabled = False

txtCEP.Enabled = False

txtTelCom.Enabled = False

txtTelRes.Enabled = False

txtTelCel.Enabled = False

txtEmail.Enabled = False

txtCNPJ.Enabled = False

txtInscricaoEstadual.Enabled = False

 

'Verifica se a tabela possui registros,se possuir mostra os dados.

If rsTBClientes.EOF = False Then

AtualizaFormulario

End If

 

End Sub

 

Segue o cód do procedimento AtualizaFormulario:

Dim vTipoCliente As Byte 'Variável p/ armazenar o valor da opção Tipo de Pessoa

 

With rsTBClientes

vTipoCliente = !tipo_pessoa

 

'Verifica se o valor corresponde a pessoa física ou juridíca, se o valor _

é igual a zero, seleciona pessoa física, caso seja um, seleciona juridíca.

If vTipoCliente = 0 Then

optTipoCliente(0).Value = True

optTipoCliente(1).Value = False

Else

optTipoCliente(0).Value = False

optTipoCliente(1).Value = True

End If

 

txtCodCliente.Text = !cod_cliente

txtClienteDesde.Text = !cliente_desde

txtEmpresa.Text = !empresa

txtContato.Text = !contato_nome

txtEndereco.Text = !endereco

txtBairro.Text = !bairro

txtCidade.Text = !cidade

txtEstado.Text = !estado

txtCEP.Text = !CEP

txtTelCom.Text = !tel_com

txtTelRes.Text = !tel_res

txtTelCel.Text = !tel_cel

txtEmail.Text = !email

txtCNPJ.Text = !cnpj_cpf

txtInscricaoEstadual.Text = !inscricao_estadual

End With

 

End Sub

 

O erro acontece na parte em vermelho acima.

 

Run time error '3001'

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

 

O que posso fazer ?

Valeu o HELP !! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Carol

[jolienai 0]

coloque adCmdTable

[CarolAndrade 0]

Thanks !

 

Carol http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif