Probléme d'affichage

Signaler
-
salut je veux affecter un element qui se trouve dans un combobox dans un champ d'un enregistrement et l'afficher dans une listbox
[Private Type personne
desc As String * 30
dat As Date
impo As String * 1

End Type

Dim i As Integer

Private Sub form_Load()
i = 1
End Sub

Private Sub cmdsauvegarder_Click()
Dim per As personne

Open "c:\todo.txt" For Random As #2 Len = Len(per)
per.desc = txtdescription.Text
per.dat = txtdate.Text
per.impo = cb.SelText



Put #2, i, per
i = i + 1

Close #2
frm3.Visible = True

End Sub]/code
la date est affiché sous forme de symbole voila un exemple:i@l
merci d'avance