Dim strCon As String = "Provider=SQLOleDb;Data Source=(Local);Initial Catalog=你的SQL数据库名;User ID=你的SQL用户名;PWD=你的SQL密码;"
Dim DBCon As OleDbConnection = New OleDbConnection(strCon)
Dim strCon As String = "Provider=SQLOleDb;Data Source=(Local);Initial Catalog=CMISDB;User ID=sa;PWD=admin;"
Dim DBCon As OleDbConnection = New OleDbConnection(strCon)