同志们好！
求助大家一个问题，就是如何用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

能说的更详细点？