Erro ao gravar no banco de dados

[GnomO! 0]

E ai galera..

Tenho um form que cadastra clientes no banco de dados mais quando vai inserir os dados no bd aparece o seguinte erro:

 

"A operação solicitada requer um objeto OLEDB Session, para o qual não há suporte do provedor atual."

 

Segue Codigo:

Private Sub GravaDados()Dim adCmdPaciente As New ADODB.CommandDim CodCliente As LongDim Resp As ByteIf Not TudoOK Then Exit SubResp = MsgBox("Confirma Gravação de " & Nometxt & " em Cadastro de Cliente ?", vbYesNo + vbQuestion, "Salvar Dados")If Resp = 7 Then Exit Sub'On Error Resume NextCodCliente = Val(Codtxt.Text)	With adCmdPaciente	Set .ActiveConnection = cnSQL	.CommandType = adCmdText	.Prepared = True			.CommandText = "INSERT INTO Cadastros (Nome, Endereco, Bairro, Cidade, Estado, Cep, Telefone, Inscricao) Values (?, ?, ?, ?, ?, ?, ?, ?, ?)"				.Parameters.Append .CreateParameter("Nome", adVarChar, adParamInput, 30)		.Parameters.Append .CreateParameter("Endereco", adVarChar, adParamInput, 30)		.Parameters.Append .CreateParameter("Bairro", adVarChar, adParamInput, 20)		.Parameters.Append .CreateParameter("Cidade", adVarChar, adParamInput, 20)		.Parameters.Append .CreateParameter("Estado", adVarChar, adParamInput, 2)		.Parameters.Append .CreateParameter("Cep", adVarChar, adParamInput, 9)		.Parameters.Append .CreateParameter("Telefone", adVarChar, adParamInput, 9)		.Parameters.Append .CreateParameter("Inscricao", adDate, adParamInput)				.Parameters("Nome") = Nometxt.Text		.Parameters("Endereco") = Endetxt.Text		.Parameters("Bairro") = Bairrotxt.Text		.Parameters("Cidade") = Cidadetxt.Text		.Parameters("Estado") = cboEstado.Text		.Parameters("Cep") = CEPtxt.Text		.Parameters("Telefone") = Teltxt.Text		.Parameters("Inscricao") = Date				.Execute			 If Err.Number <> 0 Then		MostraErro		End If				  End With			Set adCmdPaciente = Nothing	btNovo_Click	End Sub

A linha que esta com erro é:

Set .ActiveConnection = cnSQL

Desde Ja agradeço..

GnomO!

[Luizgrs 0]

Esse objeto cnSQL é de que tipo?

[GnomO! 0]

Abaixo codigo do objeto cnSQL

 

Option ExplicitPublic cnSQL As New ADODB.ConnectionSub Main()Dim Caminho As StringCaminho = ReadINI("Caminho", "BD", App.Path & "\Config.ini")On Error GoTo Finalizar	cnSQL.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Caminho & ";Jet OLEDB:database Password=MasterDB"		frmInserir.ShowExit SubFinalizar:MsgBox "Erro ao tentar conectar-se ao Banco de Dados.", vbCritical, "Erro"End Sub

Obrigado...

GnomO!

[Luizgrs 0]

Cara, assim o problema parece estar na conexão ao BD, mas como nunca utilizei os adodb.commands não sei te dizer onde está o erro.