小女子来！VB+SQL

小女子来求救！~~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.Recordset

Private 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 数据库
[解决办法]

rst.Filter = "泄漏时间段= '" & n & "' "