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)