Dim rs1 As New ADODB.Recordset
        Dim myConnection As New SqlConnection
        Dim strConnection As String = ("Server=*;Database=*;Integrated Security=true;")

        myConnection = New SqlConnection(strConnection)
        myConnection.Open()
        rs1.Open("Select * from [Тек_параметры.dbo]", myConnection, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockBatchOptimistic)

        MsgBox("Соединение установлено!")
        myConnection.Close()

 
System.Runtime.InteropServices.COMException не обработано
  ErrorCode=- 2146825287 
  HelpLink="C:\WINDOWS\HELP\ADO270.CHM#1240641"
  Message="Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом."
  Source="ADODB.Recordset"
  StackTrace:
       в ADODB.RecordsetClass.Open(Object Source, Object ActiveConnection, CursorTypeEnum CursorType, LockTypeEnum LockType, Int32 Options)
       в System.Windows.Forms.Control.OnClick(EventArgs e)
       в System.Windows.Forms.Button.OnClick(EventArgs e)
       в System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
       в System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
       в System.Windows.Forms.Control.WndProc(Message& m)
       в System.Windows.Forms.ButtonBase.WndProc(Message& m)
       в System.Windows.Forms.Button.WndProc(Message& m)
       в System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
       в System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
       в System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       в System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       в System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
       в System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       в System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       в System.Windows.Forms.Application.Run(ApplicationContext context)
       в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       в WindowsApplication4.My.MyApplication.Main(String[] Args) в 17d14f5c-a337- 4978 - 8281 -53493378c1071.vb:строка  81 
       в System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
       в System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
       в Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       в System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       в System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       в System.Threading.ThreadHelper.ThreadStart()
  

Dim rs1 As New ADODB.Recordset
        Dim myConnection As New ADODB.Connection
        Dim strConnection As String = ("Driver={SQL Server};Server=PROFTS-30612942\SQLEXPRESS;Database=Intra2;")

        myConnection.Open("Driver={SQL Server};Server=*;Database=*;")
        rs1.Open("Select * from [Тек_параметры]", myConnection, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)


        DataGridView1.DataSource = rs1
        
        MsgBox("Соединение установлено!")

        myConnection.Close()

Dim sConnString As String = "server=*;uid=sa;pwd=;database=*"
        Dim ConnString As String = "Data Source=*;Initial Catalog=*;Integrated Security=True"
        Dim SQLString As String = "SELECT * FROM Тек_параметры"
        Dim SqlDataAdapter1 As New SqlDataAdapter(SQLString, ConnString)
        Dim DataSet1 As New DataSet()
        SqlDataAdapter1.Fill(DataSet1, "Тек_параметры")
        DataGridView1.DataSource = DataSet1.Tables("Тек_параметры")