ADOConn.ConnectionString = Link_1出错，急

Question

Try
            SerNam = TxBox1.Text
            DatBas = TxBox2.Text
            UseNam = TxBox3.Text
            UsePass = TxBox4.Text
            If TxBox4.Text <> "" Then
                Link_1 = "Provider=SQLOLEDB;Data Source=" & SerNam & ";Initial Catalog=" & DatBas & ";User ID=" & UseNam & ";Password=" & UsePass
            Else
                Link_1 = "Provider=SQLOLEDB;Data Source=" & SerNam & ";Initial Catalog=" & DatBas & ";User ID=" & UseNam
            End If
            '=================================================================================
            Dim ADOConn As New SqlClient.SqlConnection()         '一个SqlConnection对象
            Dim ADOComm As New SqlClient.SqlCommand()            '一个SqlCommand对象
            Dim ADODa As New SqlClient.SqlDataAdapter()          '一个SqlDataAdapter对象
            Dim ADODs As New DataSet()                           '一个数据集DataSet对象
            '-----------------------------------------------------设置连接字符串，告诉程序应当如何连接到数据库
            ADOConn.ConnectionString = Link_1
            MessageBox.Show("0")
            ADOComm.CommandText = "select  Yhmc from Yhqx"  '设置SQL命令，告诉程序应当如何取数据
            MessageBox.Show("1")
            ADOComm.Connection = ADOConn
            ADODa.SelectCommand = ADOComm
            ADOConn.Open()
            MessageBox.Show("2")
            ADODa.Fill(ADODs)
            MessageBox.Show("3")
            ADOConn.Close()            MessageBox.Show("连接成功！")
            Exit Sub        Catch ex As Exception
            MessageBox.Show("数据库连接失败！！请检查！")
            Exit Sub
        End Try每次都是执行到       ADOConn.ConnectionString = Link_1 就被捕获异常了，请教各位是哪里出错了呢？

Answer 1

异常时查看ex        Catch ex As Exception 
            MessageBox.Show("数据库连接失败！！请检查！" & ex.Message) 
            Exit Sub 
        End Try 

Answer 2

按照你教的方法去看了一下，它的提示是：不支持关键字：provider
应该怎么解决呀？