Private Sub btnSaveAndClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveAndClose.Click
        Dim SQLstatement As String = "INSERT INTO Client( Firstname, Surname, Address1, Address2, Address3, PostCode, ContactnumMob, ContactnumHome) VALUES('" & txtFirstName.Text "', '" & txtSurname.Text & "', '" & txtAddress1.Text & "', '" & txtAddress2.Text & "', '" & txtAddress3.Text & "', '" & txtPostCode.Text &  "', '" & txtMobileNum.Text &  "', '" & txtHomeNum.Text & "')"

        SaveNames(SQLstatement)
    End Sub
End Class