Basic - error en los codigos fuentes

hola a todos;
estoy haciendo un programas que calcula en todas las formas, en visual basic pero en access en la misma base de datos, en la parte de formulario, cuando lo ejecuto me manda error en la primera linea y cada campo se llama como esta en los codigos, necesito saber poque me manda error. el codigo es el siguiente:
Private Sub CommandButton3_Click()
Dim BD As Database
Dim t As Recordset

Dim cant1, cant2, cant3, cant4, cant5, cant6, cant7, cant8 As Integer
Dim tol1, tol2, tol3, tol4, tol5, tol6, tol7, tol8, ting, tegr, tliq As Long

cant1 = Val(Texto.Text) - Val(Texto.Text)
cant2 = Val(Texto77.Text) - Val(Texto93.Text)
cant3 = Val(Texto79.Text) - Val(Texto95.Text)
cant4 = Val(Texto81.Text) - Val(Texto97.Text)
cant5 = Val(Texto83.Text) - Val(Texto99.Text)
cant6 = Val(Texto85.Text) - Val(Texto101.Text)
cant7 = Val(Texto87.Text) - Val(Texto103.Text)
cant8 = Val(Texto89.Text) - Val(Texto105.Text)

tol1 = Val(val1.Text) * cant1
tol2 = Val(val2.Text) * cant2
tol3 = Val(val3.Text) * cant3
tol4 = Val(val4.Text) * cant4
tol5 = Val(val5.Text) * cant5
tol6 = Val(val6.Text) * cant6
tol7 = Val(val7.Text) * cant7
tol8 = Val(val8.Text) * cant8

Como no dices cual es el error no se cual es el problema.
Intenta replantear la explicación un poco mejor por que no entiendo el problema.

Cuando dices que la primera linea te da error, ¿Esta es la primera linea?

Private Sub CommandButton3_Click()

¿O es esta?

Dim BD As Database

Solo un comentario más, esto:

Dim cant1, cant2, cant3, cant4, cant5, cant6, cant7, cant8 As Integer

No es lo mismo que esto:

Dim cant1 As Integer , cant2 As Integer, cant3 As Integer,cant4 As Integer
Dim cant5 As Integer, cant6 As Integer, cant7 As Integer, cant8 As Integer