帮忙调试一下这个程序

Question

Private Sub Form_Load()
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Cnnstr As String
Dim Trim(390, 6) As String
Dim i As Integer
Dim n As Integer
Cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db97.mdb;Persist Security Info=False"
Cnn.Open Cnnstr
Cnn.CursorLocation = adUseClient
'Rs.Open "select %/j from 语料库 ", Cnn, adOpenKeyset, adLockBatchOptimisticRs.Open "SELECT 字段3,字段5, 字段7, 字段9, 字段11, 字段13, 字段15 FROM 语料库", Cnn, adOpenKeyset, adLockBatchOptimistic For i = 3 To 15 Step 2
   For n = 1 To 390 Step 1
        If (Trim(n, Rs.Fields("字段" & i)) Like "%/j") Then
        Debug.Print Rs.Fields("字段" & i)
        End If
        Next
Next
    'Rs.MoveNext
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
End Subi字段的行，n是字段的列
字段3 字段5 字段7 字段9 字段11 字段13 字段15
迈向/v 充满/v 希望/n 的/u 新/a 世纪/n ——/w
中共中央/ni 总书记/n 、/w 国家/n 主席/n 江/nh 泽民/nh
（/w 一九九七年/nt 十二月/nt 三十一日/nt ）/w
１２月/nt ３１日/nt ，/w 中共中央/ni 总书记/n 、/w 国家/n
同胞/n 们/k 、/w 朋友/n 们/k 、/w 女士/n
在/p １９９８年/nt 来临/v 之际/nd ，/w 我/r 十分/m
１９９７年/nt ，/w 是/v 中国/nnl 发展/vn 历史/n 上/nd
在/p 这/r 一/m 年/q 中/nd ，/w 中国/nnl
在/p 这/r 一/m 年/q 中/nd ，/w 中国/nnl
１９９８年/nt ，/w 中国/nnl 人民/n 将/d 满怀信心/i 地/u
实现/v 祖国/n 的/u 完全/a 统一/vn ，/w 是/v
台湾/nnl 是/v 中国/nnl 领土/n 不可分割/i 的/u 一/m
环顾/v 全球/n ，/w 日益/d 密切/a 的/u 世界/n
[中国/nnl 政府/n]ni 将/d 继续/v 坚持/v 奉行/v 独立自主/ic
在/p 这/r 辞旧迎新/i 的/u 美好/a 时刻/n ，/w
谢谢/v ！/w （/w 新华社/ni 北京/nnl １２月/nt ３１日/nt

在/p 十五大/j 精神/n 指引/vn 下/nd 胜利/vd 前进/v
我们/r 即将/d 以/p 丰收/vn 的/u 喜悦/an 送/v
刚刚/d 过去/v 的/u 一/m 年/q ，/w 大气磅礴/ic
１９９８年/nt ，/w 是/v 全面/ad 贯彻/v 落实/v 党/n
今年/nt 是/v 党/n 的/u 十一/m 届/q 三中全会/j
我们/r 要/v 更/d 好/a 地/u 坚持/v 解放思想/ic
我们/r 要/v 更/d 好/a 地/u 坚持/v 以/p
我们/r 要/v 更/d 好/a 地/u 坚持/v “/w
我们/r 要/v 更/d 好/a 地/u 发扬/v 求真务实/i
１９９８/m ，/w 瞩目/v 中华/na 。/w 新/a 的/u

北京/nnl 举行/v 新年/nt 音乐会/n
江/nh 泽民/nh 李/nh 鹏/nh 乔/nh 石/nh 朱/nh
党/n 和/c 国家/n 领导人/n 江/nh 泽民/nh 、/w
（/w 新华社/ni 记者/n 樊/nh 如钧/nh 摄/Vg ）/w
本报/r 北京/nnl １２月/nt ３１日/nt 讯/Ng 新华社/ni 记者/n
今晚/nt 的/u 长安街/nnl 流光溢彩/i ，/w 火树银花/ic ；/w
音乐会/n 在/p 雄壮/a 的/u 管弦乐/n 《/w 红旗/n

Answer 1

http://topic.csdn.net/u/20080410/11/6f2c8a4a-1d90-4911-b3ab-5ae469b64e3c.html
无语

Answer 2

Private Sub Form_Load() 
Dim Cnn As New ADODB.Connection 
Dim Rs As New ADODB.Recordset 
Dim Cnnstr As String 
Dim i As Integer 
Dim n As Integer Cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db97.mdb;Persist Security Info=False" 
Cnn.Open Cnnstr 
Cnn.CursorLocation = adUseClient Rs.Open "SELECT 字段3,字段5, 字段7, 字段9, 字段11, 字段13, 字段15 FROM 语料库", Cnn, adOpenKeyset, adLockBatchOptimistic 
Set DataGrid1.DataSource = Rs 
DataGrid1.RefreshDo Until Rs.EOF
   For i = 3 To 15 Step 2 
      If Trim(Rs.Fields("字段" & i)) Like "*/j" Then 
        Debug.Print Rs.Fields("字段" & i) 
      End If 
   Next 
   Rs.MoveNext
Loop 
 
End Sub

Answer 3

你仔细看看 MSDN 就会知道 Like 运算的通配符错了，% 是 SQL Server 的通配符，VB 中是 *。

Answer 4

定义数组Dim Trim() As String
运行以后
If Trim(Rs.Fields("字段" & i)) Like "*/j" Then  
显示类型不匹配
有好办法解决么？

Answer 5

If Trim(Rs.Fields("字段" & i) & "") Like "*/j" Then