Error 26: في كود اضاقة بيانات

Public Class T_Form
Dim cnn As New SqlClient.SqlConnection

Private Sub T_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Time_tableTableAdapter.Fill(Me.E_LearningDataSet.Time_table)
Me.TeachersTableAdapter.Fill(Me.E_LearningDataSet.Teachers)
cnn = New SqlClient.SqlConnection
cnn.ConnectionString = "Data Source=" & Application.StartupPath & "\SHAY6O0ONA\sql2005;Initial Catalog=E-Learning.dbo;Integrated Security=True"

End Sub

Private Sub RefreshData()
If Not cnn.State = ConnectionState.Open Then
cnn.Open()
Return
End If

Dim da As New SqlClient.SqlDataAdapter("SELECT Full_Name,CPR, Phone" & _
" E-mail, Section, Needs, [Free_time(U)], [Free_time(H)] " & _
" FROM Teachers ORDER BY CPR INNER JOIN " & _
" [Time table] ON Teachers.CPR = [Time table].T_CPR", cnn)
da.Fill(E_LearningDataSet.Time_table)

cnn.Close()
End Sub

Private Sub B_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_save.Click
Dim cmd As New SqlClient.SqlCommand

If Not cnn.State = ConnectionState.Open Then
cnn.Open()
Return
End If

cmd.Connection = cnn
cmd.CommandText = " INSERT INTO T_Form (Full_Name,CPR, Phone, E-mail, Section," & _
"Needs,[Free_time(U)], [Free_time(H)])" & _
"VALUES (" & Me.TB_name.Text & "," & Me.TB_CPR.Text & "," & Me.TB_Phone.Text & "," & _
Me.TB_Email.Text & "," & Me.CB_sec.Text & "," & Me.LB_Subj.Text & "," & _
Me.CLB_TFreeU.Text & "," & Me.CLB_TFreeH.Text & ")"

cmd.ExecuteNonQuery()

RefreshData()

cnn.Close()

End Sub