vb6.0 数据库添加问题

将串口接收到的数据添加到access中，然后显示。但是在数据不是从最后一行添加进的，为什么会出现这种现象，怎么解决
代码如下：       
Set cnn = New ADODB.Connection
Set Rst = New ADODB.Recordset
Dim TR As String
TR = App.Path  '用tr变量来获取数据库的路径
If Right(TR, 1) <> "\" Then  '如果不是根目录
TR = TR + "\"
End If
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
pstr = pstr & "Persist Security Info=False;"
pstr = pstr & "Data Source=" & TR & "\1.mdb"  '.mdb是数据库的名称
cnn.ConnectionString = pstr
cnn.Open pstr
Rst.CursorLocation = adUseClient
Rst.Open Trim(k1), pstr, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = Rst
Rst.MoveLast
        Text11 = Rst.RecordCount
        Text11 = Text11 + 1
        Rst.AddNew '往表中添加新记录
        'Rst("序号") = Text11
        Rst("通道号") = Text8
        Rst("电压值V") = Text4
        Rst("电阻值R") = Text3 '数据读写操作
        Rst("温度值Tc") = Text6
        Rst("温升值ΔT") = Text5
        Rst("环境温度Te") = Text7
        Rst("测试状态") = Text9
        Rst("取值时间") = Text10
        Rst.Update
        Rst.AddNew '往表中添加新记录
        Set Rst = Nothing
        Set cnn = Nothing