VB求助！！！表结构为 公交线路 站点 排序

MSFlexGrid1实现的功能是选出与search1相同的线路名按记录个数显示，MSFlexGrid2是相似的，显示经过站点的线路名。运行时第一个正常，第二个只有 部分站点可以显示，实在是找不出什么错误，望指点！！！ MSFlexGrid1.Cols = 100 For i = 0 To 10 MSFlexGrid1.ColWidth(i) = 1500 MSFlexGrid1.ColAlignment(i) = flexAlignCenterCenter Next i MSFlexGrid1.RowHeight(0) = 400 MSFlexGrid1.TextMatrix(0, 0) = " 线路名" MSFlexGrid1.TextMatrix(0, 1) = " 站点1" MSFlexGrid1.TextMatrix(0, 2) = " 站点2" MSFlexGrid1.TextMatrix(0, 3) = " 站点3" MSFlexGrid1.TextMatrix(0, 4) = " 站点4" MSFlexGrid1.TextMatrix(0, 5) = " 站点5" MSFlexGrid1.TextMatrix(0, 6) = " 站点6" MSFlexGrid1.TextMatrix(0, 7) = " 站点7" MSFlexGrid1.TextMatrix(0, 8) = " 站点8" MSFlexGrid1.TextMatr订埂斥忌俪涣筹惟船隶ix(0, 9) = " 站点9" MSFlexGrid1.TextMatrix(0, 10) = "站点10" intRow = 1 strSql1 = "SELECt * FROM 公交线路 Where 线路名='" & Trim(search1) & "' order by 排序" Set rst = Query(strSql1) If rst.RecordCount >= 1 Then rst.MoveLast End If num1 = rst.RecordCount If rst.RecordCount >= 1 Then rst.MoveFirst End If While Not rst.EOF() MSFlexGrid1.Rows = intRow + 1 MSFlexGrid1.RowHeight(intRow) = 400 MSFlexGrid1.Row = intRow MSFlexGrid1.TextMatrix(intRow, 0) = rst.Fields(0) For j = 1 To num1 MSFlexGrid1.TextMatrix(intRow, j) = rst.Fields(1) rst.MoveNext Next j intRow = intRow + 1 Wend MSFlexGrid2.TextMatrix(0, 0) = " 站点" MSFlexGrid2.TextMatrix(0, 1) = " 经过线路" intRow = 1 strSql2 = "SELECt * FROM 公交线路 Where 站点='" & Trim(search2) & "' order by 线路名" Set rst = Query(strSql2) If rst.RecordCount >= 1 Then rst.MoveLast End If num2 = rst.RecordCount If rst.RecordCount >= 1 Then rst.MoveFirst End If While Not rst.EOF() MSFlexGrid2.Rows = intRow + 1 MSFlexGrid2.RowHeight(intRow) = 400 MSFlexGrid2.Row = intRow If intRow Mod 2 = 1 Then For k = 0 To 10 MSFlexGrid2.Col = k MSFlexGrid2.CellBackColor = &HFFFFC0 Next k Else For k = 0 To 10 MSFlexGrid2.Col = k MSFlexGrid2.CellBackColor = &HC0E0FF Next k End If MSFlexGrid2.TextMatrix(intRow, 0) = search2 For j = 1 To num2 MSFlexGrid2.TextMatrix(intRow, j) = rst.Fields(0) rst.MoveNext Next j intRow = intRow + 1 Wend

strSql2 = "SELECt * FROM 公交线路 Where 站点='" & Trim(search2) & "' order by 线路名"
Set rst = Query(strSql2)
If rst.RecordCount >= 1 Then
rst.MoveLast
End If
num2 = rst.RecordCount
If订埂斥忌俪涣筹惟船隶 rst.RecordCount >= 1 Then
rst.MoveFirst
End If
连续的两个if语句的作用是什么呢？能解释下吗？

程序比较乱，可以解决，没有时间。