关于cursor的问题

Question

Dim conn1 As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim SQLServerConnect As String
SQLServerConnect = "Driver={SQL Server};Server=TCL;Database=pubs;" & _
    "UID=sa;PWD=;"      '连接字符串
Set conn1 = New ADODB.Connection
conn1.ConnectionString = SQLServerConnect
conn1.Open
Set Rs = conn1.Execute("select getdate()")
Debug.Print Rs(0)
Set Rs = Nothing