You have an error in your SQL syntax

[johnmar]

Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient

Public Class Form2
Dim MysqlConn As MySqlConnection
Dim sqlconnection As MySqlConnection = New MySqlConnection
Dim serverstring As String = "server=localhost; user id=root; password=; database = project"

Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
Dim sqlstatement As String = "Insert into subject('ID','Code','Description','Unit','Hours') values('" & TextBox5.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
savenames(sqlstatement)
End Sub

Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


sqlconnection.ConnectionString = serverstring

Try
If sqlconnection.State = ConnectionState.Closed Then
sqlconnection.Open()
MsgBox("Successfully connected to mysql database")
Else
sqlconnection.Close()
MsgBox("Connection is closed.")
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Public Sub savenames(ByRef sqlstatement As String)

Dim cmd As MySqlCommand = New MySqlCommand

With cmd

.CommandText = sqlstatement
.CommandType = CommandType.Text
.Connection = SqlConnection
.ExecuteNonQuery()
End With


SqlConnection.Close()

MsgBox("Successfully Added!")
SqlConnection.Dispose()
End Sub

End Class

[Rabbit]

You don't need quotes around field names.

[Ammu]

Dim sqlstatement As String = "Insert into subject(ID,Code,Description,Unit,Hours) values('" & TextBox5.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"