Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Module Module1
Sub Main()
Dim sConnectionString As String = "User ID=tas;Password=scii;Initial Catalog=ASWT;Data Source=SCIISV03\SQLEXPRESS"
Dim objConn As New SqlConnection(sConnectionString)
objConn.Open()
Dim sSQL As String = "SELECT CUSTOMERCODE FROM CUSTOMER"
Dim objCmd As New SqlCommand(sSQL, objConn)
Dim dt As New DataTable
Try
Dim da As SqlDataAdapter = New SqlDataAdapter(objCmd)
da.Fill(dt)
Console.WriteLine("Record Selected")
Catch e As Exception
Console.WriteLine(e.ToString)
End Try
Console.WriteLine("Record Selected")
Console.Read()
End Sub
End Module