为何一运行连接sql的代码，程序就自动关闭

各位好，我在一个VB按钮中，加入了一连接sql数据库和查询一张表的命令，但在调试的时候，只要一运行这个按钮，程序就自动关闭，连VB的进程也自动被关掉，我的代码如下，麻烦各位帮我看一下问题出在哪里？Private Sub Command1_Click()
Dim cn As New Connection
Dim rs As New Recordset
Dim pw As String
pw = Text1.Text
  cn.ConnectionString = "Provider=SQLOLEDB.1;Password=" & pw & ";Persist Security Info=True;User ID=sa;Initial Catalog=tbase;Data Source=127.0.0.1"
  cn.Open
'rs.Open "select * from table1"
'Set DataGrid1.DataSource = cn
  If cn.State = adStateOpen Then
   Label2.Caption = "已经连接"
Else
   Label2.Caption = "连接失败"
   End If
End Sub添加有ADO data control6.0和 datagrid control6.0两个控件。