紧急请高手帮忙，快快快快！！

[guanghualee]

我是一VB初学者，在编写一个数据库练习
问题：一个学生成绩表：
学号 Integer
姓名 Text 8
数学 Single
语文 Single
英语 Single

在编译程序时，出现错误，请问怎么办
请高手帮忙啊，本人感激不尽

程序代码如下：
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
If Command1(0).Caption = "添加" Then
Command1(0).Caption = "确定"
Command1(1).Caption = "取消"
Data1.Recordset.AddNew
Tenable (False)
Else
Command1(0).Caption = "添加"
Command1(1).Caption = "编辑"
Data1.Recordset.Update
Tenable (True)
End If
Case 1
If Command1(1).Caption = "添加" Then
Command1(0).Caption = "确定"
Command1(1).Caption = "取消"
Data1.Recordset.Edit
Tenable (False)
Else
Command1(0).Caption = "添加"
Command1(1).Caption = "编辑"
Data1.Recordset.CancelUpdate
Data1.Refresh
Tenable (True)
End If
Case 2
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End Select
Text1(0).SetFocus
End Sub
Private Sub Tenable(ByVal setvalue As Boolean)
Dim x As TextBox
For Each x In Text1
x.Locked = setvalue
Next
Command1(2).Visible = setvalue
Data1.Enabled = setvalue
End Sub
Private Sub Data1_Reposition()
Data1.Caption = " 记录号:" & (Data1.Recordset.AbsolutePosition + 1) & "/" & Data1.Recordset.RecordCount
End Sub
Private Sub TExt1_KeyPress(Inddex As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
i = (Index + 1) Mod 5
Text1(i).SetFocus
End If
End Sub





End Sub

[guanghualee]

在一个我的邮箱中，把一些窗体及程序附上，高手们下载
帮我改改这个程序，本人感激不尽
www.tom.com
name:huaching
pass:Ligh0911

work.6.frm
另一个work.5.frm是在
http://expert.csdn.net/Expert/topic/1858/1858819.xml?temp=.6171228
上的提问的程序

大家多多帮忙啊！

[enj1224]

gz