小女子来求救！~~VB+SQL


本人是新手，身边又无人交流，真的没办法了，希望可以有高人帮帮我界面上有一个option数组（option1（0）初期，option1（1）中期，option1（2）后期），一个label1，一个按钮command，数据库表名为leaktime，列名为时间段（初期，中期，后期）和方法（A,B,C）。想实现以下功能：当选择其中一个option，按下按钮时，label中可以显示相应的方法（A.B.C）.代码如下：
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.RecordsetPrivate Sub Command1_Click()Dim i, j As Integer
Dim n As String
cn.Open "DSN=pipe; uid=sa; pwd=123;"
Set cmd.ActiveConnection = cn
cmd.CommandText = "select * from leakTime"
cmd.CommandType = adCmdText
cn.CursorLocation = adUseClient
rst.Open cmd          '运行cmd命令产生记录集For i = 0 To 2
  If Option1(i).Value = True Then
n = Option1(i).Caption
End If
Next i'使用记录集对象
rst.Sort = "方法"
rst.Filter = "泄漏时间段= 'n' "   '数据筛选
For j = 0 To rst.RecordCount - 1
Label.Caption = rst.Fields("方法").Name
rst.MoveNext
Next j
cn.Close'释放各对象变量
Set rst = Nothing
Set cmd = Nothing
Set cn = Nothing
End Sub不知道代码是不是有很大的问题，运行时没反应！在线等啊。。
VB数据库