主题：创建数据源错误

Dim mdbs() As String = e.Form.Controls("CheckedComboBox4").text.split(",") 

Dim str As String = e.Form.Controls("ComboBox1").text
If Connections.Contains("test") Then Connections.Delete("test")
msgbox(str)
Connections.Add("test", "Provider=SQLOLEDB.1;Password=111111gh;Persist Security Info=True;User ID=sa;Initial Catalog= " & str & ";Data Source=" & SysInfo.ComputerName & "")

以下代码为什么提示创建"test"失败，该怎么修改？