vb动态连接sql server 2000问题？（求助高手---现要用）

Question

Dim cn As ADODB.Connection
  Set cn = New ADODB.Connection
  Dim St As String
  St = "Provider=sqloledb;data source=数据库;uid=;pwd='"
  
  cn.ConnectionString = St
  cn.Open
   
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  Set rs.ActiveConnection = cn
  rs.Open "select * from 序号 where 序号名 ='" & Bhmc & "'", cn, adOpenStatic, adLockOptimistic

Answer 1

按照 llpei(小闹) 的方法,如没有数据库捕获错误.在创建数据库.