Неправильная синтаксическая ошибка рядом с 'электронной почтой'

Question

Я запускаю Visual studio, и всякий раз, когда я запускаю свое приложение, он говорит «Неправильная синтаксическая ошибка рядом» (здесь появляется адрес электронной почты i). Надеюсь, вы заметите ошибку.

В сервере SQL, моя электронная почта колонка называется «электронная почта»

В Visual Studio, имя поля ввода для моей электронной почты называется «textEmail»

Public Sub AddCustomer(Firstname As String, Surname As String, Contactnum As String, Email As String) 
    Try 
     Dim strInsert As String = "INSERT INTO customers (firstname, surname, contactnum, email) " & _ 
            "VALUES (" & _ 
            "'" & Firstname & "'," & _ 
            "'" & Surname & "'," & _ 
            "'" & Contactnum & "'," & _ 
            "'" & Email & "'" 

     MsgBox(strInsert) 

     SQLCon.Open() 
     SQLcmd = New SqlCommand(strInsert, SQLCon) 

     SQLcmd.ExecuteNonQuery() 


     SQLCon.Close() 

    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 





End Sub 

End Class 

код в виде:

Private Sub cmdSave_Click(sender As Object, e As EventArgs) Handles cmdSave.Click 
    'QUERY FOR CUSTOMER 
    SQL.RunQuery("SELECT * FROM customers WHERE customers.email = '" & txtEmail.Text & "' ") 

    If SQL.SQLDS.Tables(0).Rows.Count > 0 Then 
     MsgBox("This Email alredy exists!") 
     Exit Sub 
    Else 
    CreateCustomer() 
    End If 
End Sub 

     Public Sub CreateCustomer() 
    ' ADD CUSTOMER TO DATABASE 
    SQL.AddCustomer(txtFirst.Text, txtSur.Text, txtNum.Text, txtEmail.Text) 


End Sub 
End Class 

Спасибо за ваше время.

Answer 1

У вас не хватает закрывающей скобкой

Dim strInsert As String = "INSERT INTO customers (firstname, surname, contactnum, email) " & _ 
            "VALUES (" & _ 
            "'" & Firstname & "'," & _ 
            "'" & Surname & "'," & _ 
            "'" & Contactnum & "'," & _ 
            "'" & Email & "')"