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