vb 如何做下一條記錄

Question

我做了一個下一條記錄的按鈕， 點擊下一記錄按鈕移動至第二條記錄，再次安下一記錄按鈕無法移動第三條記錄我的下一條記錄按鈕代碼：
Private Sub CmdNext_Click()
Dim i As Integer
AdodcMeterial.RecordSource = "select * from Meterialorderform where salesSlipNo='" + TxtSearch.Text + "'"
AdodcMeterial.Refresh
If Not AdodcMeterial.Recordset.EOF Then
Set rsme = AdodcMeterial.Recordset
rsme.MoveNext
顯示的數據賦給Textbox 
End If
End Sub

Answer 1

只需要 Refresh 以后的语句，前面的语句应该属于打开或刷新按钮。

Answer 2

把打开数据库与移动记录指针分开到两个过程，否则你每次按按钮都重新打开数据库，这时指针都自动指第一条记录，当然无法往下进行了。
Private sub OPenDatabase_click()'先单击这个
Dim i As Integer
AdodcMeterial.RecordSource = "select * from Meterialorderform where salesSlipNo='" + TxtSearch.Text + "'"
AdodcMeterial.Refresh
end subPrivate Sub CmdNext_Click()'然后连续单击这个观查结果
If Not AdodcMeterial.Recordset.EOF Then
Set rsme = AdodcMeterial.Recordset
rsme.MoveNext
顯示的數據賦給Textbox 
End If
End Sub