1) hours1 = CInt(Text2.Text)
this will get you a runtime error 13 type mismatch
if text2 is empty or if user entered a string instead of a number.
if you use val(text2.text) instead you will have 0 as result

2)If Text4.Text = 1 Then
Text56.Text = 1 * 10#
End If

text4.text is a string and like this you must handle it
the correct is

Code:

If val(Text4.Text) = 1 Then
Text56.Text = cstr(1 * 10#)
End If

val(string)-->give us its numerical value
Cstr(number)-->give us a string representing our number

3) your form is misleading the user
in the total hours column you have the hours and below the minutes
but the labeling is not good.Try to make it better

4)in a previous post of yours i had answered how to add and delete from datagrid
but you did not use that in this project

Private Sub cmdTotalGrid_Click()
Dim i, a As Integer
a = 0
Adodc1.Recordset.MoveFirst 'Move the record position to the first
'Iteration for row by row
For i = 1 To Adodc1.Recordset.RecordCount
'Calculate the result
a = a + Val(DataGrid1.Columns(9).Text)
Adodc1.Recordset.MoveNext
Next
MsgBox "result=" + CStr(a)
End Sub