پر شدن Listbox با استفاده از جدول

یک برنامه نسبتا ساده دارم که باید اطلاعات را از جدول در یک
Listbox وارد کند اما عمل نمی کند
آیا می توانید علت را بگوئید؟
این هم برنامه:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
' فیلد ‏field2‎‏ از جدول ‏Table2 ‎
' به فیلد ‏sotoon3‎‏ از جدول ‏Table1‎
Me.OleDbDataAdapter1.Fill(Me.DataSet11.Table1)
Me.OleDbDataAdapter1.Fill(Me.DataSet11.Table2)
Me.DataBind()
End Sub

Private Sub DataGrid1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged
Me.DataView1.Table = Me.DataSet11.Table2
Me.DataView1.RowFilter = "sotoon3 = " & Me.DataGrid1.SelectedItem.Cells(0).Text
Me.ListBox1.DataSource = Me.DataView1
Me.ListBox1.DataTextField = "field2"
Me.ListBox1.DataBind()
End Sub

ضمناً چطور می تونم در صورتی که برای جواب این سوال لازم هست
برنامه کامل رو برای شما بفرستم ، چطور میشه این کار رو انجام داد؟
با تشکر قبلی