想在VB中创建一个存储过程,为什么总是出错?没分了.高手请看看吧,谢谢

On Error GoTo lbErr
Dim iDb As ADODB.Connection
Set iDb = New ADODB.Connection
Dim iConcStr As StringiConcStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=HX"
iDb.Open iConcStr
Dim str As String
str = "IF EXISTS (SELECT name FROM sysobjects " & _
      " WHERE name = 'bbb' AND type = 'P') " & _
      " DROP PROCEDURE bbb " & _
      " GO  " & _
      " create procedure bbb " & _
      " as " & _
      " print 'ccc' " & _
      " go "
iDb.Execute str
lbErr:
         MsgBox Error, vbOKOnly + vbExclamation, "错误!"
         
iDb.Close