[Resolvido] Carregar dados em uma textbox

Queridos amigo, Boa Tarde eu fiz um programa em VB6 com o banco em acess, nesse programa tem uma tela que mostra toda a movimentação do dia em Cheque, Dinheiro, Cartão e Venda total... Uso para mostra essas coisa 4 MaskEdBox, e para carregar esses MaskEdBox eu usava o seguinte codigo:

Set RS = New ADODB.RecordsetSet con = New ADODB.Connection

con.Open (cnSQL)

RS.Open "Select * from dinheiro where data_venda = #" & Date & "#", con, adOpenKeyset, adLockOptimistic

If RS.EOF <> True And RS.BOF <> True Then

Me.txtdinheiro = RS.Fields("totaldia")

End If

Deu certo no começo mais depois q compilei e instalei no cliente o form simplesmente carrega com o MaskEdBox so aparece em branco...

Aonde ta o erro? Por Favor me ajudem já naum sei mais oq fazer....

Desde já agradeço!!!!