How to Bind ListBox using DataTable values from DataBase?

Dim sqlstr As String = ""
sqlstr = "SELECT POM.POID,POM.PoNumber FROM POMAIN POM  
Dim dt As DataTable
dt = GetDataTable(sqlstr)
lstPONumber.DisplayMember = "PONUMBER"
lstPONumber.ValueMember = "POID"
lstPONumber.DataSource = dt