any one can help me with this sql syntax error? what should i use near the select statement : Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Len(Trim(TextBox1.Text)) = 0 Then
            MsgBox("Please Enter Current Odometer For Specified Vehicle", MsgBoxStyle.Critical, "Error")
            TextBox1.Focus()
        Else
            Dim time As DateTime = DateTimePicker1.Value.Date
            Dim format As String = "yy-MM-dd"
            Dim newdate = time.ToString(format)
            Dim SQLStatement As String = "IF EXISTS (SELECT * FROM services_list WHERE vehicle_id='" & Label7.Text & "' AND service='" & ComboBox1.Text & "') BEGIN UPDATE services_list Set service_date='" & newdate & "', note='" & RichTextBox1.Text & "', odometer='" & TextBox1.Text & "' WHERE vehicle_id='" & Label7.Text & "' AND service='" & ComboBox1.Text & "' End Else BEGIN INSERT INTO services_list(vehicle_id,service,service_date,note,odometer,milesorkm) VALUES('" & Label7.Text & "', '" & ComboBox1.Text & "', '" & newdate & "', '" & RichTextBox1.Text & "', '" & TextBox1.Text & "', '" & Label8.Text & "') END"
            Dim Query2 As String = "Select * from customers_cars where vin_number='" & ComboBox3.Text & "'"
            Dim cmd As MySqlCommand = New MySqlCommand(Query2, MySqlConn)
            Reader = cmd.ExecuteReader
            Try
                While Reader.Read()
                    Dim lastod = Reader.GetInt32("last_visit_odometer").ToString
                    Label9.Text = lastod
                    If TextBox1.Text <= Label9.Text Then
                        MsgBox("Incorrect Odometer")
                    Else
                        Reader.Dispose()
                        cmd.CommandText = SQLStatement
                        cmd.CommandType = CommandType.Text
                        cmd.Connection = MySqlConn
                        cmd.ExecuteNonQuery()
                        MsgBox("Successfully Added!")
                    End If
                    Reader.Dispose()
                End While
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub