...
   colvalue=datatable.rows(0)("column_name")
   lstData.items.add(colvalue) 
  ...

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        dt.Columns.Add("No", GetType(Int32))
        dt.Columns.Add("Name")
        dt.Rows.Add(1, "A")
        dt.Rows.Add(2, "B")
        dt.Rows.Add(3, "C")
 
        For Each r As DataRow In dt.Rows
            ListBox1.Items.Add(r("No"))
        Next
    End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        dt.Columns.Add("No", GetType(Int32))
        dt.Columns.Add("Name")
 
        dt.Rows.Add(1, "A")
        dt.Rows.Add(2, "B")
        dt.Rows.Add(3, "C")
 
        ListBox1.DataSource = dt
        ListBox1.DisplayMember = "Name"
        ListBox1.ValueMember = "No"
    End Sub