Get data from 'Select' command
Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Data.SqlClient Public Class MainClass Shared Dim WithEvents con As SqlConnection Shared Sub Main() con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI") ' Create the command object Dim str As String = "SELECT ID, FirstName, LastName FROM Employee" Dim cmd As New SqlCommand(str, con) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet() da.Fill(ds, "Employee") Dim dc As DataColumn For Each dc In ds.Tables(0).Columns Console.Write("{0,15}", dc.ColumnName) Next Console.Write(vbCrLf) Dim dr As DataRow For Each dr In ds.Tables(0).Rows Dim i As Integer For i = 1 To ds.Tables(0).Columns.Count Console.Write("{0,15}", dr(i - 1)) Next i Console.Write(vbCrLf) Next End Sub End Class