Imports System.Data
Imports System.Data.SqlClient
……
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myDataSet As DataSet = New DataSet()
myDataSet = getCategories()
ListBox1.DataSource() = myDataSet.Tables(0).DefaultView
ListBox1.DisplayMember() = "CategoryName"
End Sub
Private Function getCategories() As DataSet
Dim connString As String = "Server=SHA-RICKIE-01;Database=northwind;uid=rickie;pwd=rickie"
Dim myConn As SqlConnection
Dim myDataSet As DataSet = New DataSet()
Try
myConn = New SqlConnection(connString)
myConn.Open()
Dim sqlString As String = "Select CategoryId, CategoryName, Description " _
& " From Categories"
Dim mySqlDataAdapter As SqlDataAdapter
mySqlDataAdapter = New SqlDataAdapter(sqlString, myConn)
'Fill the DataSet with the data table named 'dtCategories'
mySqlDataAdapter.Fill(myDataSet, "dtCategories")
Catch ex As Exception
MsgBox(ex.ToString())
Finally
myConn.Close()
End Try