vb高手进!

下面的程序从语法上是否有问题呢?当我运行它们时,它对表cetcomputer的第一条记录就可以访问,但第二条记录就找不到了啦.请高手指教,谢谢了.
Private Sub cmdCet4_Click()

Dim rs As New ADODB.Recordset

SQLStmt = "SELECT * FROM cetcomputer"
Set rs = SqlQuery(SQLStmt)
If Not rs.EOF Then

If (rs.Fields(1) = Trim(txtCet4.Text) Or rs.Fields(0) = Trim(txtCet4.Text)) Then
aa = rs.Fields(2)
MsgBox "你的四级英语成绩" & aa
Exit Sub
Else
MsgBox "没有你所找的人"
Exit Sub
End If
rs.MoveNext
End If

End Sub

'执行数据库的查询操作,由于涉及到Recordset,因此暂时不能断开与数据库的连接.(ado的工作机制)
Public Function SqlQuery(ByVal SQLTEXT As String) As ADODB.Recordset
Dim rs As New ADODB.Recordset
DbConnect
Set rs.ActiveConnection = cnn
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Open SQLTEXT
Set SqlQuery = rs
End Function

求VB高手！VB高手进！！！！！！！！！！ VB高手进！！！ VB高手进~~~求助！！！ vb高手进 VB高手进！！急！！！ vb问题高手进 VB高手进! vb.net高手进 VB高手进，谢谢 VB高手进!!!!!!!!