动态创建了一个DATA 为什么对它进行的操作出现错误呢？

Question

Private WithEvents ado As Data
Private Sub Command1_Click()
If ado Is Nothing Then
Set ado = Controls.Add("vb.data", "ado", Me)
       ado.Move 3000, 1000, 1000, 300
       ado.Caption = "New Option"
       ado.DatabaseName = "f:\lai.mdb"
       ado.RecordsetType = 1
       ado.RecordSource = "student"
       ado.Visible = True
End If
End SubPrivate Sub Command2_Click()
Text1.Text = ado.Recordset.Fields(0)在这里出现错误 说对像变量或WITH块没有End Sub                              设置
请大家帮忙 这是什么问题呢？