Visual Basic

Imports System.Management
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SerialNumber As System.Management.ManagementClass
        Dim Win32_BIOS As System.Management.ManagementObjectSearcher

        Select Case SerialNumber FROM Win32_BIOS  ' surely FROM should be in blue???

        End Select
        textbox1.text = SerialNumber 'copys serial number from the Win32_bios into the txtdocument

    End Sub
End Class

ClientProfileBindingSource.Filter = String.Format("Name LIKE '{0}%' AND Mobile LIKE '{1}%'", NameTextBox.Text, MobileTextBox.Text)

Private Sub SaveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveButton.Click
        Using connection As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\ProjectMW\MachineWale\MachineWale\DatabaseMW.mdf;Integrated Security=True;User Instance=True")
            Using command As New SqlClient.SqlCommand("INSERT INTO [MachineProfile] ([MachineID], [Category], [Type], [Brand], [Model], [Quantity], [SalePrice], [RentalRate], [ListingDate], [Agent], [Availability], [PurchaseDate], [Kmsrun], [HoursRun], [ChasisNo], [EngineNo], [OtherSpec], [WebEntry], [Ownership]) VALUES (@MachineID, @Category, @Type, @Brand, @Model, @Quantity, @SalePrice, @RentalRate, @ListingDate, @Agent, @Availability, @PurchaseDate, @Kmsrun, @HoursRun, @ChasisNo, @EngineNo, @OtherSpec, @WebEntry, @Ownership) where [MachineID] = '" & TextBox1.Text & "'", connection)

                command.Parameters.AddWithValue("@MachineID", TextBox1.Text)
                command.Parameters.AddWithValue("@Category", ComboBox2.Text)
                command.Parameters.AddWithValue("@kmsrun", TextBox10.Text)
                command.Parameters.AddWithValue("@Type", ComboBox3.Text)
                command.Parameters.AddWithValue("@Brand", ComboBox7.Text)
                command.Parameters.AddWithValue("@Model", ComboBox8.Text)
                command.Parameters.AddWithValue("@Quantity", TextBox7.Text)
                command.Parameters.AddWithValue("@SalePrice", TextBox17.Text)
                command.Parameters.AddWithValue("@RentalRate", TextBox18.Text)
                command.Parameters.AddWithValue("@ListingDate", TextBox19.Text)
                command.Parameters.AddWithValue("@Agent", ComboBox6.Text)
                command.Parameters.AddWithValue("@Availability", ComboBox4.Text)
                command.Parameters.AddWithValue("@PurchaseDate", DateTimePicker1.Value)
                command.Parameters.AddWithValue("@HoursRun", TextBox11.Text)
                command.Parameters.AddWithValue("@ChasisNo", TextBox12.Text)
                command.Parameters.AddWithValue("@EngineNo", TextBox13.Text)
                command.Parameters.AddWithValue("@OtherSpec", TextBox15.Text)
                command.Parameters.AddWithValue("@WebEntry", ComboBox5.Text)
                command.Parameters.AddWithValue("@Ownership", ComboBox1.Text)
                connection.Open()
                command.ExecuteNonQuery()
                MsgBox("Updated")

            End Using
        End Using
    End Sub