DADOS DE DUAS TABELAS NA FLEXGRID

Private Sub mfgproduto_Click()
             If mfgproduto = Empty Then
               MsgBox "Não há clientes cadastrados neste campo", vbExclamation, "ATM"
               SSTab1.Tab = 0
                            
            Else
          
                txtcodigo = mfgproduto.RowData(mfgproduto.Row)
                
                
                  If tab_prod_posto.State = adStateOpen Then
                     tab_prod_posto.Close
                  End If
                
                
                tab_prod_posto.Open "Select * from prod_posto where codigo = " & txtcodigo
                Call exibir_produto
                SSTab1.Tab = 0
                
            End If
            tab_prod_posto.Close
            tab_prod_posto.Open "prod_loja ", conectar, adOpenKeyset
End Sub

Private Sub exibir_produto()
                tab_fornecedor.Open "fornecedor", conectar, adOpenKeyset
                txtcodigo_for = tab_fornecedor!codigo
                l_buscar = txtcodigo_for
                tab_fornecedor.Close
                 tab_fornecedor.Open "select * from fornecedor where Nome = '" & l_buscar & "'"
                If tab_fornecedor.RecordCount <> 0 Then
                   txtnome_for = l_buscar
                  
                End If
            
            
           

            
            txtcodigo = tab_prod_posto!codigo
            
            
            txtnome = IIf(IsNull(tab_prod_posto!nome), Empty, tab_prod_posto!nome)
            txtquantidade = IIf(IsNull(tab_prod_posto!Qtde), Empty, tab_prod_posto!Qtde)
            txtpreco = IIf(IsNull(Format(tab_prod_posto!preco, "R$   ###,###.00")), Empty, Format(tab_prod_posto!preco, "R$   ###,###.00"))
            txtnome = IIf(IsNull(tab_prod_posto!nome), Empty, tab_prod_posto!nome)
            txtcodigo_for = IIf(IsNull(tab_prod_posto!cod_fornecedor), Empty, tab_prod_posto!cod_fornecedor)
            'txtnome_for = IIf(IsNull(tab_fornecedor!nome), Empty, tab_fornecedor!nome)
            txtnome.Text = l_buscar
            txtdt_val = IIf(IsNull(tab_prod_posto!dt_val), Empty, tab_prod_posto!dt_val)
            
            
            mskdt_entrada.PromptInclude = False
            mskdt_entrada.Text = IIf(IsNull(tab_prod_posto!dt_entrada), Empty, tab_prod_posto!dt_entrada)
            mskdt_entrada.PromptInclude = True
             
             
             
            
End Sub