Private Sub ToolStripButton_zagr_d_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton_zagr_d.Click
        Dim bldr = New SqlClient.SqlConnectionStringBuilder()
        bldr.DataSource = "ServerName"
        bldr.InitialCatalog = "назв_БД"
        bldr.UserID = "имя_польз"
        bldr.Password = "пароль"
        bldr.IntegratedSecurity = False
        Using cn = New SqlClient.SqlConnection(bldr.ConnectionString)
            Try
                cn.Open() 

Module Module1
    Public cn As SqlClient.SqlConnection

    Public Sub createConnectionString(ByVal user_name As String, ByVal password As String)
        Dim bldr = New SqlClient.SqlConnectionStringBuilder()
        bldr.DataSource = "......"
        bldr.InitialCatalog = "....."
        bldr.UserID = user_name
        bldr.Password = password
        bldr.IntegratedSecurity = False
        cn = New SqlClient.SqlConnection(bldr.ConnectionString)
    End Sub
End Module

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim us_name, pas As String
        us_name = Me.cbox_user_name.Text
        pas = Me.txtbox_password.Text
        Call createConnectionString(us_name, pas)
        frm_add_zak.Show()
        me.Close()
    End Sub

Private Sub ToolStripButton_zagr_d_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton_zagr_d.Click
        Using cn
            Try
                cn.Open()
                'select command
                Me.DataSet_zak.Tables( 0 ).Clear()
                SqlDataAdapter_zak.SelectCommand = cn.CreateCommand()
                SqlDataAdapter_zak.SelectCommand.CommandText = "general.usp_get_zak"
                SqlDataAdapter_zak.SelectCommand.CommandType = CommandType.StoredProcedure
                SqlDataAdapter_zak.Fill(DataSet_zak.Tables( 0 ))
                cn.Close()
                BindingSource_zak.DataSource = Me.DataSet_zak.Tables( 0 )
                DataGridView_zak.Columns.Item( 0 ).Visible = False
                DataGridView_zak.Columns.Item( 2 ).Width =  100 
                SaveToolStripButton.Enabled = True
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Ошибка загрузки данных", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return
            End Try
        End Using
    End Sub

internal static SqlConnectionStringBuilder create_bldr()
        {
            SqlConnectionStringBuilder bldr = new SqlConnectionStringBuilder()
            {
                DataSource = "221.1.2.254",
                InitialCatalog = "trust",
                UserID = _userFioSokr,
                Password = _userPass,
                IntegratedSecurity = false
            };

            return bldr;
        }

DataSource = "221.1.2.254",
AlternativDataSource = "192.168.100.2"