程序总是过不去，帮忙找找问题

Question

Private Sub Form_Load()
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Cnnstr As String
Dim Trim() As String
Dim i 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
Do 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
Set DataGrid1.DataSource = Rs
DataGrid1.Refresh
End Sub定义数组Dim Trim() As String
运行以后
If Trim(Rs.Fields("字段" & i)) Like "*/j" Then  
显示类型不匹配
有好办法解决么？

Answer 1

try:
Do Until Rs.EOF 
   For i = 0 To rs.fields.count-1 
      If Trim(Rs.Fields(i)) Like "*/j" Then 
        Debug.Print Rs.Fields(i) 
      End If 
   Next 
   Rs.MoveNext 
Loop 

Answer 2

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