发表于:2004-04-26 09:55:00
5楼
Dim sql As String
Dim ConnectionString As String
Dim DateNow As Date
DateNow = System.CurrentDate
DateNow = DateAdd("d", -3, DateNow)
Dim strDateNow As String
strDateNow = DateNow
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.CursorLocation = adUseClient
cnn.ConnectionString = "dsn=WWW;uid=;pwd=;database=WWW"
cnn.Open