主题：[求助]请教 SQL数据源 自动建表加载问题

附加，还原，用sql语句啊，比如代码

Try
    If Connections.Contains("test") Then Connections.Delete("test")
    Dim cmd1 As New SQLCommand
    Connections.Add("test", "Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=voyo")
    cmd1.ConnectionName = "test"
    Connections("test").BeginTransaction() '开始事务
    cmd1.CommandText = "use master;EXEC sp_attach_db @dbname ='测试',@filename1 ='"& ProjectPath & "ADMIN\测试.mdf',@filename2 ='"& ProjectPath & "ADMIN\测试_log.ldf'"
    cmd1.ExecuteNonQuery()
    Connections("test").Commit '提交事务,所有操作生效
    If Connections.Contains("test") Then Connections.Delete("test")
Catch ex As Exception '如果出错
    msgbox(ex.message)
End Try