vb.net 点击Label获取连接字符串

 Private Sub Label1_Click(sender As Object,e As EventArgs) Handles Label1.Click
        Dim myStream As System.IO.Stream
        OpenFileDialog1.InitialDirectory = "C:\Users\Administrator\Desktop"
        OpenFileDialog1.Filter = ""
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Try
                Label1.ForeColor = Color.White
                Label1.Text = OpenFileDialog1.FileName
                myStream = OpenFileDialog1.OpenFile()
                If Not (myStream Is nothing) Then
                    g_sqlDataSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Label1.Text + ""
                    myStream.Close()
                End If
            Catch ex As Exception
                MsgBox("错误！")
            End Try
        End If
    End Sub

原文地址：https://www.jb51.cc/vb/258720.html