Oi alguém poderia me ajudar nesta consulta ? cmd1.CommandText = "Select Co_RazSocial From Contratante Where Co_Codext = " & txt_CodCliente.Text
cmd2.CommandText = "Select Item_Modelo " _
& "From ItemPedido " _
& "Where Co_CodExt = " & txt_CodCliente.Text & " " _
& "And Ln_ID = " & TipoOS & " " _
& "And Os_Numero = " & txt_OS.Text & " " _
& "And Item_Id = P1"
conn.Open()
Dim Leitor1 As OleDbDataReader = cmd1.ExecuteReader()
Try
If Leitor1.Read() Then
txt_Cliente.Text = Leitor1.Item(0)
Else
MsgBox("Cliente Inexistente", MsgBoxStyle.OkOnly, "Cliente Inexistente")
Leitor1.Close()
conn.Close()
Exit Sub
End If
Leitor1.Close()
Catch ex As Exception
End Try
Dim Leitor2 As OleDbDataReader = cmd2.ExecuteReader()
Try
If Leitor2.Read() Then
cmbMatriz.Items.Add(Leitor2)
Leitor2.Close()
End If
Leitor2.Close()
Catch ex As Exception
End Try
conn.Close()
End Sub o 1° cmd funciona tranquilo, mas o segundo da o seguinte erro Nenhum valor foi fornecido para um ou mais parâmetros necessários. caracas não entendo o porque do erro esta tudo ok, reconfiri umas 15 vezes ajuda plz !