小吳 VBQA 程式設計討論

Private Sub Command3_Click()
rs.AddNew
Text1(0).SetFocus
Call AddnewDisplay
Text1(0).Text = ascii
End Sub
Private Sub Command6_Click()
Dim i As Integer
For i = 0 To rs.Fields.Count - 1
rs.Fields(i) = Text1(i).Text
Next i
rs.Update
Adodc1.Refresh
End Sub
Private Sub AddnewDisplay()
Dim k As Integer
For k = 0 To rs.Fields.Count - 1
Text1(k).Text = ""
Next k
End Sub
Private Function ascii() As String
Dim val As Integer
rs.MoveLast
ascii = rs.Fields(0)
val = Asc(ascii)
val = val + 1
ascii = Chr(val)
End Function
....到底那出錯了..請幫幫忙
新增按下去去抓最後一筆記錄的第一欄位轉ascii碼在加一加轉回字串然後把轉出來的ascii放入text1(0).text之後按存檔卻出錯了