改成你自己的连接字符串
Dim s As String="Provider=SQLOLEDB.1;Password=hailun.;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=voyo"
改成你自己的数据库名
Dim dname As String = "test"