清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Dim oleDbConnection1 As OleDb.OleDbConnection   
Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False; Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;”   
oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)