高手请进！！ado访问sql server的问题

Question

Option Explicit
Dim WithEvents connEvent As Connection
Dim conn As New ConnectionPrivate Sub connEvent_InfoMessage(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
MsgBox pError.Description
End SubPrivate Sub Form_Load()
Dim cnnstr As String
Dim sql As String
cnnstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=godhealth;Data Source=xxx"   ' your connect string
Set connEvent = conn
conn.Open cnnstr
sql = "print 'asdb'"
conn.Execute sqlSet connEvent = Nothing
End Sub