_Console Menu Foundation Class

Upload
How to use a System.Data.SqlClient.SqlDataReader
I have inserted ... at the begining of each line so that it is readable...
.
.
.' I Used the frmMain Load sub as an example.
.
.Private Sub frmMain_Load(ByVal Sender As Object, ByVal e As EventArgs) Handles MyBase.load
'Dim all the needed vars
....Dim DR As System.Data.SqlClient.SqlDataReader
....Dim strSQL As String = "SELECT * FROM Users"
....Dim SqlConn As new System.Data.SqlClient.SqlConnection("Persist Security Info=False;Data Source=localhost;Initial Catalog=MyDb;User ID=sa;Password=;")
'Open the Database
....SqlConn.open()
....Dim SqlComm As new System.Data.SqlClient.SqlCommand(strSQL, SqlConn)
'Execute the reader
....DR = SqlComm.ExecuteReader
'Loop through the records and add the "UserName" to a text box
....Do While DR.Read()
.......txtUserNames.Text &= VbCrLf & DR.Item("UserName")
....Loop
'Close everything
....DR.Close()
....SqlConn.Close()
....SqlComm.Dispose()
....SqlConn.Dispose()
'setting the values to nothing is not required but I like to do it anyway
....DR = Nothing
....SqlConn = Nothing
....SqlComm = Nothing
'and thats it
.End Sub