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

我是一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