القيم المضافة لا تحفظ في قاعدة البيانات

سلام عليكم

انا عملت مشروع لتسيير بقاعدة بيانات اكسس

وفي زر حفظ النتائج عملت الكود التالي

اقتباس

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

Try

Dim Enreg As New OleDb.OleDbCommand

Dim Connec As String = "Microsoft.Jet.OLEDB.4.0;Data Source=" & _

Application.StartupPath & "\forum.mdb"

Dim Conn As New OleDbConnection(Connec)

Enreg.Connection = Conn

Enreg.CommandType = CommandType.Text

Enreg.CommandText = "insert into forum(code,UrlHebergement,CompteHebergement,MotPasse,NomForum,UrlForum,BaseDonne

s,BDPassword,FTP url,FTP Pass,Administrateur,Password,ControlPanel,Email)" & _

"values ('" & Me.TextBox2.Text & "','" & Me.ComboBox1.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & Me.TextBox7.Text & "','" & Me.TextBox8.Text & "','" & Me.TextBox9.Text & "','" & Me.TextBox10.Text & "','" & Me.TextBox11.Text & "','" & Me.TextBox12.Text & "','" & Me.TextBox13.Text & "','" & Me.TextBox14.Text & "','" & Me.TextBox15.Text & "')"

Conn.Open()

Enreg.ExecuteNonQuery()

MsgBox("Le Forum A Bien Eté Ajouté")

Forum.Show()

Me.Close()

Catch ex As Exception

Exit Sub

End Try

End Sub

لكن المشكل ان القيم لا تحفظ في قاعدة البيانات

فهل من مساعدة