我是這樣寫的(用OLE方式連接SQL SERVER數據庫):Dim Report As New CrystalReport1
  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim strconn As String
  Dim sql As String
  Set conn = New ADODB.Connection
  strconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=sr-korn"
  conn.CursorLocation = adUseClient
  conn.Open strconn
  Set rs = New ADODB.Recordset
  sql = "select * from ssitemnobox"
  rs.Open sql, conn, adOpenStatic, adLockOptimistic
  Report.DiscardSavedData
  Report.Database.SetDataSource rs就是著句老是不能通過,為什麼啊?