Sample code layout:
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Try
con.ConnectionString = "Data Source=atisource;Initial Catalog=BillingSys;Persist Security Info=True;User ID=sa;Password=12345678"
con.Open()
cmd.Connection = con
cmd.CommandText = "SELECT [field1], [field2] FROM [tablename] WHERE [condition] ORDER BY [sortfield]"
Dim lrd As SqlDataReader = cmd.ExecuteReader()
While lrd.Read()
End While
Catch ex As Exception
MessageBox.Show("Error while retrieving records on table..." & ex.Message, "Load Records")
Finally
con.Close()
End Try