If statusList.Text = "Call back" Then
                    sql = "INSERT into Leads (Title, FirstName, Surname, AddressLine1, AddressLine2, AddressLine3,CityOrTown,County, Postcode, HomeNumber,WorkNumber,MobileNumber,EMail,Origin, Assigned, Staff,Status,Locked ,LockedBy ,  ActiveLead,callBack,callBackTime)"
                    sql += " VALUES ('" & nameTitle.Text & "','" & nameFirst.Text & "','" & nameSecond.Text & "','" & addressLine1.Text & "','" & addressLine2.Text & "','" & addressLine3.Text & "','" & City.Text & "','" & County.Text & "','" & txtpostcode.Text & "','" & homeNo.Text & "','" & workNo.Text & "','" & mobileNo.Text & "','" & email.Text & "','" & leadOrigin.Text & "',1, '" & Environment.UserName & "', '" & statusList.Text & "',0,"",0,1, '" & Cooldate.Text & "')"
                Else
                    sql = "INSERT into Leads (Title, FirstName, Surname, AddressLine1, AddressLine2, AddressLine3,CityOrTown,County, Postcode, HomeNumber,WorkNumber,MobileNumber,EMail,Origin, Assigned, Staff,Status,Locked)"
                    sql += " VALUES ('" & nameTitle.Text & "','" & nameFirst.Text & "','" & nameSecond.Text & "','" & addressLine1.Text & "','" & addressLine2.Text & "','" & addressLine3.Text & "','" & City.Text & "','" & County.Text & "','" & txtpostcode.Text & "','" & homeNo.Text & "','" & workNo.Text & "','" & mobileNo.Text & "','" & email.Text & "','" & leadOrigin.Text & "',1, '" & Environment.UserName & "', '" & statusList.Text & "',0)"
                End If