How to fix this error ?

See more:

VB6

datalist

How do I fix this error. I am setting a datalist like this: data list screenshot here

And I have table like this:

+-------------------+
|---ID----|---NAME--|
+-------------------+
|---101---|---CNN---|
|---102---|---BBM---|
+-------------------+
On the datalist I am using ID for listfield. I want show the name directly in the textbox when i choose ID list from listfield.
e.g. : i choose ID 101 in datalist then show CNN in textboxname

Private Sub DataList1_Click()
    Txtnama.Text = DataList1.ListField = "nama"
End Sub

Problem: the textbox just shows "false". How do I fix this code. please help me
thanks

vb6

What I have tried:

Private Sub DataList1_Click()
    Txtnama.Text = DataList1.ListField = "nama"
End Sub