Получить данные из DataSet в ListBox

Private Function GetFreeIps() As DataSet
        Dim _Adapter = New OleDbDataAdapter("SELECT [IP] FROM [IP_Table] WHERE [Ip] <> ''", _Connect)
        Dim _DataSet = New DataSet
        _Adapter.Fill(_DataSet)
        Return _DataSet
    End Function
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'вот так можно заполнить ДатаГрид
        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = GetFreeIps().Tables(0)
        DataGridView1.Update()
'В интернете нашел что то подобное для листбокс но это не работает
        ListBox_FreeIps.DataSource = GetFreeIps().Tables(0)
        Dim curm As CurrencyManager
        curm = CType(Me.BindingContext(ListBox_FreeIps.DataSource), CurrencyManager)
        curm.Refresh()
  
    End Sub

ListBox_FreeIps.DataSource = GetFreeIps().Tables(0)
ListBox_FreeIps.DisplayMember = IP

ListBox_FreeIps.DisplayMember = "IP"

Dim _myDBaseFile As FileInfo = New FileInfo(My.Application.Info.DirectoryPath & "\ip_учет.mdb")
Dim _Connect As New OleDbConnection("Provider = Microsoft.jet.OLEDB.4.0;Data Source=" & _myDBaseFile.ToString)