ارور در بايند شدن به يه ليست باكس

[نیکناز]

سلام
من كد زير رو كه براي بايند شدن اطلاعات ديتا بيس به ليست باكس هست و مي نويسم ولي خطاي زير رو از كد
lb.ValueMember = valueMember
مي ده 0

در صورتي كه همين كد براي كمبو باكس مشكلي نداره 0 مشكل كار ازكجاست؟ جرا اين خط كد ارور مي ده؟

Public Sub LoadInList(ByVal lb As ListBox, ByVal tableName As String, ByVal fieldName As String, ByVal valueMember As String)
lb.Items.Clear()
Dim Adp As New OleDb.OleDbDataAdapter("SELECT " & fieldName & " FROM " & tableName, con)
Dim ds As New DataSet()
Adp.Fill(ds, tableName)
lb.DataSource = ds.Tables(0)
lb.ValueMember = valueMember
lb.DisplayMember = fieldName
lb.DataBindings.Add("Text", ds, tableName & "." & fieldName)
End Sub