数据库的读取问题（vb+access）

Question

我做了一个VB读取数据库的
始终只能读取第1,2行
我新写入的3行明明进去了，他就是不读取出来
比如这样
姓名   年龄
我     10
你     19
他     20读取的时候只有
姓名   年龄
我     10
你     19第二行以后的都没读取出来源码下载：http://bird972.web1.7it7.cn/数据库.rar 
源码：
Dim a As Integer
Dim p(99) As StringPrivate Sub Command1_Click()
End
End SubPrivate Sub Command2_Click()
a = 1
Call shujuku(a)
End SubPrivate Sub Command3_Click()
a = 2
Call shujuku(a)
End SubPrivate Sub Command4_Click()
a = 3
Call shujuku(a)
End SubPrivate Sub Form_Load()
a = 0
Call shujuku(a)
End SubSub shujuku(a As Integer)
 Set db = OpenDatabase("TuiMag.mdb")
 Set rs = db.OpenRecordset( _
        "SELECT * FROM StuInfo")If a = 1 Then
    If Not (rs.EOF Or rs.BOF) Then
            rs.MoveNext
            TxtID.Text = rs("StuID")
            TxtName.Text = rs("StuName")
            TxtFrom.Text = rs("StuForm")
            TxtClass.Text = rs("StuCless")
            TxtSex.Text = rs("StuSex")
            TxtTel.Text = rs("StuTel")
            TxtBirhDate.Text = rs("StuBirhDate")
     Else
          MsgBox "已经是最后一个!"
     End If
     Else
            TxtID.Text = rs("StuID")
            TxtName.Text = rs("StuName")
            TxtFrom.Text = rs("StuForm")
            TxtClass.Text = rs("StuCless")
            TxtSex.Text = rs("StuSex")
            TxtTel.Text = rs("StuTel")
            TxtBirhDate.Text = rs("StuBirhDate")
End If
If a = 2 Then
     rs.MovePrevious
End If
If a = 3 Then
MsgBox "asd       "
p(0) = Text1.Text
p(1) = Text2.Text
p(2) = Text3.Text
p(3) = Text4.Text
p(4) = Text5.Text
p(5) = Text6.Text
p(6) = Text7.Text
Set db = OpenDatabase("TuiMag.mdb")
 Set rss = db.OpenRecordset( _
        "SELECT * FROM StuInfo")
rs.AddNew
rs("StuID") = p(0)
rs("StuName") = p(1)
rs("StuForm") = p(2)
rs("StuCLess") = p(3)
rs("StuSex") = p(4)
rs("StuTel") = p(5)
rs("StuBirhDate") = p(6)
rs.Update
rs.CloseEnd If
End Sub

Answer 1

或许不是你最佳要的!但是 已经给你修整过来,可以 上一条,下一条了! 
Dim a As Integer
Dim p(99) As String
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
End
End SubPrivate Sub Command2_Click()
a = 1
Call shujuku(a)
End SubPrivate Sub Command3_Click()
a = 2
Call shujuku(a)
End SubPrivate Sub Command4_Click()
a = 3
Call shujuku(a)
End SubPrivate Sub Form_Load()
a = 1
 db.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path() & "\TuiMag.mdb"
 rs.Open "SELECT * FROM StuInfo", db, 1, 3Call shujuku(a)End SubSub shujuku(a As Integer)If a = 1 Then
    rs.MoveNext
    If Not rs.EOF Then
            TxtID.Text = rs("StuID")
            TxtName.Text = rs("StuName")
            TxtFrom.Text = rs("StuForm")
            TxtClass.Text = rs("StuCless")
            TxtSex.Text = rs("StuSex")
            TxtTel.Text = rs("StuTel")
            TxtBirhDate.Text = rs("StuBirhDate")
     Else
          MsgBox "已经是最后一个!"
     End If
ElseIf a = 2 Then
    rs.MovePrevious
    If Not rs.BOF Then
            TxtID.Text = rs("StuID")
            TxtName.Text = rs("StuName")
            TxtFrom.Text = rs("StuForm")
            TxtClass.Text = rs("StuCless")
            TxtSex.Text = rs("StuSex")
            TxtTel.Text = rs("StuTel")
            TxtBirhDate.Text = rs("StuBirhDate")
        Else
        MsgBox "已经是第一个了!"
            
    End If
End IfIf a = 3 Then
MsgBox "asd       "
p(0) = Text1.Text
p(1) = Text2.Text
p(2) = Text3.Text
p(3) = Text4.Text
p(4) = Text5.Text
p(5) = Text6.Text
p(6) = Text7.Text
'Set db = OpenDatabase("TuiMag.mdb")
' Set rss = db.OpenRecordset( _
        "SELECT * FROM StuInfo")
rs.AddNew
rs("StuID") = p(0)
rs("StuName") = p(1)
rs("StuForm") = p(2)
rs("StuCLess") = p(3)
rs("StuSex") = p(4)
rs("StuTel") = p(5)
rs("StuBirhDate") = p(6)
rs.Update
'rs.CloseEnd If
End Sub