求助vb与SQL SERVER数据库的连接问题

public DB as new adodb.connection
dim adoTable as new adodb.recordset
dim strCnnString,strSQLCommand as String
dim modify as boolean

Private Sub Form_Load()
     '设置连接字符串
   strConnString="Provider=SQLOLEDB.1;Intergrated Security=SSPI;"_
                                &"Persist Security Info=Flase;Initial Catalog=DEmoData;"_
                                &"Data Source=(local)"
       DB.ConnectionString=strConnstring
       DB.Open strConnString,"sa"," ",-1            '打开连接
......
End Sub