ADO.NET + MSSQL

Dim strUpdate As String =
              "UPDATE " & data.dbo.temp_csv_table & " SET " & strPole & " " = " " REPLACE(" " & strPole & ", ' " ' ,'' )""

  Friend Sub createTempTable()
        Try
            fileShortName = "temp_csv_table"
            Dim sqlCreateTmpTable As String = "IF OBJECT_ID('" & fileShortName & "','U') IS NOT NULL DROP Table " & fileShortName & " ;" _
                                                               & " Create Table " & fileShortName & " (id int) "
            ' Connect_DB()
            Dim cmmCreatetable As New SqlCommand(sqlCreateTmpTable, cnnSQL)
            cmmCreatetable.ExecuteNonQuery()
            cmmCreatetable.Dispose()
            For i As Integer = 1 To colMyReader
                Dim addcolumn As String = "ALTER TABLE " & fileShortName & " ADD [pole" & i & "] nvarchar(max) null"
                Dim cmmAddColumn As New SqlCommand(addcolumn, cnnSQL)
                cmmAddColumn.ExecuteNonQuery()
                cmmAddColumn.Dispose()
            Next
            Dim dropColumn As String = "ALTER TABLE " & fileShortName & " DROP column id"
            Dim cmmDropId As New SqlCommand(dropColumn, cnnSQL)
            cmmDropId.ExecuteNonQuery()
            cmmDropId.Dispose()
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try
 
    End Sub

 Friend Sub CsvLoadToBase()
        Connect_DB()
        Dim encode As System.Text.Encoding = Encoding.Default
        Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(EXstrFile, encode)
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters(";") 'задаём разделитель полей в текстовом файле
            Dim currentRow As String()
            Try
                Dim a As String = MyReader.LineNumber.ToString
                currentRow = MyReader.ReadFields 'считываем первую строку в текстовом файле с названием полей
                colMyReader = MyReader.ReadFields.Length 'вычисляем кол-во полей 
                delimFields = ";"
                createTempTable()
 
                Dim bulkFile As String = "BULK INSERT " & fileShortName & " " _
                            & " " _
                            & "FROM  '" & EXstrFile & "' " _
                            & "WITH ( " _
                            & "FIELDTERMINATOR = '" & delimFields & "', " _
                            & "ROWTERMINATOR = '0x0a', " _
                            & "CODEPAGE = 'ACP' " _
                            & ")"
 
                Dim cmmBulk As New SqlCommand(bulkFile, cnnSQL)
                cmmBulk.ExecuteNonQuery()
                cmmBulk.Dispose()
            Catch ex As Exception
                MsgBox(ex.Message)
                Exit Sub
            End Try
        End Using
    End Sub

Imports System.Data.SqlClient

Dim mySQLConn As SqlConnection

Imports System.Data.SqlClient
Module Module1
    Private tb As DataTable
    Sub Main()
        Dim dbPath As String = "..."
        Dim cnnString As String = "..."
        Dim cnn As New SqlConnection(cnnString)
        Dim query As String = "SELECT * FROM ..."
        cnn.Open()
        Dim da As SqlDataAdapter = New SqlDataAdapter(query, cnn)
        da.Fill(tb) 'данные выбранные по запросу из базы записаны в таблицу
        cnn.Close()
        Console.WriteLine(tb.Rows(0).Item(0).ToString) 'вывод значения из таблицы (первая строка первое поле)
    End Sub
End Module

Dim cnn As New SqlConnection(cnnString)

tb = New DataTable

Console.ReadKey()

Imports System
Imports System.Data.SqlClient
Module Program
    Sub Main(args As String())
        Dim mySQLConnString As String
        Dim mySQLConn As SqlConnection 'тут ошибка BC30002 Тип "SqlConnection" не определён
Console.WriteLine("Hello World!")
    End Sub
End Module

Dim mySQLConn As New SqlConnection

Dim mySQLConn As SqlConnection = New SqlConnection(cnnString)

Dim nConn As SQLConnection ' объявил переменную, ошибок нет
nConn = New SQLConnection() ' создал экземпляр, ошибок нет

Imports System
Imports System.Data.SqlClient
Module Program
    Dim mySQLConn As SqlConnection
    Sub Main(args As String())
        Dim mySQLConnString As String
        mySQLConn = New SqlConnection 
Console.WriteLine("Hello World!")
    End Sub
End Module

Imports System
Imports System.Data.SqlClient
Module Program
        Sub Main(args As String())
        Dim mySQLConnString As String
        Dim mySQLConn As New SqlConnection 
Console.WriteLine("Hello World!")
    End Sub
End Module

Imports System
Imports System.Data.SqlClient
Module Program
        Sub Main(args As String())
        Dim mySQLConnString As String
        Dim mySQLConn As SqlConnection = New SqlConnection(cnnString)
Console.WriteLine("Hello World!")
    End Sub
End Module