If rec.State = 1 Then rec.Close
If Option1.Value = True Then
Gender = "Male"
Else
Gender = "Female"
End If
rec.Open "Insert into ClientTBL(ClientNo,FirstName,LastName,Age,DOB,Gender,Address,Phone,Email,Photo) values('" + txtclient.Text + "','" + txtfirstname.Text + "','" + txtlastname.Text +...