Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset
Screen.MousePointer = vbHourglass
With cnnComando
.ActiveConnection = cnnDatax erro aqui
.CommandType = adCmdText
'Monta o comando SELECT para selecionar o registro na tabela:
.CommandText = "SELECT * FROM Clientes WHERE Cod1 = " & _
txtCod1.Text & ";"
Set rsSelecao = .Execute
End With
With rsSelecao
If .EOF And .BOF Then
obs
a conexão com o banco já esta pronta dentro de um modulo e funciomando apenas não consigo fazer busca pelo código tipo informo o codigo dentro de um textbox e quando vai fazer a busca da esse erro no código
amigos como posso solucionar este erro obrigado pela ajuda e atenção aqui no forum
