Formulário Venda Desvinculado

Tenho um formulário desvinculado, com uma caixa de listagem, quero fazer uma consulta depois de realizar a venda e não estou conseguindo.
Veja o exemplo onde tem “Digite o Código da Venda”.
O código venda e data aparece nas caixas de texto acima, na caixa de listagem não aparece nada. Como faço?

Boa tarde,
Faltou a bd a que se refere

Já enviei.

Acrescente, no código do botão btnSalvar:
Me.lstCliente.Requery

Estou mim referendo é no formulário "Venda2". não tem botão. No campo pesquisa onde tem "Digite o Código da Venda".

Boa tarde,
A caixa de listagem está vazia ao abrir. Está bem?
Explique o que faz e o que devia acontecer (e não acontece)

Abaixo tem um campo "Digite o Código da Venda:" quando digito não aparece na caixa de listagem, a venda concluída. Por exemplo digite o código "1", aparece o "código" no campo código e "data" no campo data e caixa de listagem fica em branco.
No evento após atualizar do campo "Digite o Código da Venda" eu digitei estes código:

On Error Resume Next
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

On Error Resume Next
If Texto28 > 0 Then
strSQL = "SELECT * FROM Tab_Venda WHERE Item = " & Texto28.Value & ""

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then

'preenche a lstVenda com os dados do registro encontrado
Me.Texto23.Value = rs("Item")
Me.Texto2.Value = rs("DataItem")
Me.lstVenda.Column(0, NLinha) = rs("Codp")
Me.lstVenda.Column(1, NLinha) = rs("Produtos")
Me.lstVenda.Column(2, NLinha) = rs("Qtde")
Me.lstVenda.Column(3, NLinha) = rs("ValorItem")
Me.lstVenda.Column(4, NLinha) = rs("Total")
Me.lstVenda.Column(5, NLinha) = rs("DataItem")
Me.txtTotal = cCompra
Me.Texto28.Value = ""
Me.Texto28.SetFocus

Else
MsgBox "Código não cadastrado no Sistema.", vbCritical + vbInformation, "Consulta venda."
Me.Texto28 = Null
Me.Texto28.SetFocus
'Me.CodP = Null
'Me.NomProd = Null
'Me.PreCompras = Null
'Me.PreVenda = Null
'Me.QtdeEstq = Null

Exit Sub
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End If

Boa noite,
Ainda não sei o que devia acontecer que não acontece

Ao digitar o código da venda aparecer no caixa de listagem. A venda feita.

E air galera tem alguma solução?
Ao fazer uma venda e depois visualizar.
No campo "Digite o Código da Venda" eu digito e não aparece.
Como faço?

Tem Solução?

Boa tarde,
Detalhe tudo. O que escreve? o que devia mostrar que não mostra? o_que_não_sei_o_quê_porque_eu_não_adivinho_o_que_você_precisa
do género: escrevo batatas e devia mostrar "50 sacos de batatas", ....