Oi Galera,
Estou com problema nesta linha:
Assim funciona, com o valor a ser pesquisado fixo. Se o valor pesquisado for uma variavel ele da erro!
OK:
vSQL = "Select * From COFORNECEDOR Where CO = 'CO300'"
ERRO:
vSQL = "Select * From COFORNECEDOR Where CO = 'vCO'"
******************************************************************
Abaixo segue meu código!!!
Private Function OrcamentoComboBox()
Dim vSQL As String
Dim vCO As String
vCO = txtCO.Text
Set BDFORNECEDORESORC = New ADODB.Connection
Set TBFORNECEDORESORC = New ADODB.Recordset
BDFORNECEDORESORC.CursorLocation = adUseClient
'Cria conexão com o Banco de Dados
BDFORNECEDORESORC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:BANCO_DADOSGESTAO.mdb"
TBFORNECEDORESORC.Index = "CO"
vSQL = "Select * From COFORNECEDOR Where CO = 'CO300'"
TBFORNECEDORESORC.Open vSQL, BDFORNECEDORESORC
Set cmbFORNECEDOR.RowSource = TBFORNECEDORESORC
cmbFORNECEDOR.ListField = "FORNECEDOR"
End Function
