Erro ao gravar no banco de dados

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!