主题：创建数据源错误

试试

Connections.Add("test", "Provider=SQLOLEDB.1;Password=111111gh;Persist Security Info=True;User ID=sa;Initial Catalog=" & str & ";Data Source=" & SysInfo.ComputerName)

然后输出连接字符串，单独在数据源那里设置，看有什么问题

output.show("Provider=SQLOLEDB.1;Password=111111gh;Persist Security Info=True;User ID=sa;Initial Catalog=" & str & ";Data Source=" & SysInfo.ComputerName)