problemas para actulizar datos

[doris]

Hola amigos :)
tengo un formulario el cual tengo varis datos que se pueden actualizar del usuario actual tengo Un dato Fecha Nacimiento formada por 3
combos dia, mes y año,(que muestra el dato del usuario actual llenado con la fecha de nacimiento de la bd de tipo
datetime, la cual puedo actualizar y no se como enviarla la sentencia
sql, pues cada para mostrar cada combo, utilice day, month , year y en el motnh, bueno el combo contiene los valores respectivos 29, Julio, 2002
no se como enviarlos para actualizar
los sgtes son los campos que debo actulizar

Ap_Paterno = Request.Form("txtApePaterno")
Ap_Materno = Request.Form("txtApeMaterno")
Nombre = Request.Form("txtNombres")
EstadoCivil = Request.Form("cmbestadoCivil")
Dia = Request.Form("cmbdia")
Mes = Request.Form("cmbmes.value") 'aca no se si sera correcto ya que el combo muestra Julio, pero deseo tener 7
Anio = Request.Form("cmbanio")
Sexo = Request.Form("sexo") ' radio button tiene el valor checked en Femenino value =F como lo paso
Direccion = Request.Form("txtDireccion")
Telefono = Request.Form("txtTelefono")
Email = Request.Form("txtEmail")

codusuario=session("usuario")
pasword=session("password")

le esoty dando esta sentencia, se que no esta del todo bien, ayudenme porfa

sql= "update usuario set Nombre = '" & Nombre & "',Ape_Paterno ='" & Ape_Paterno & "' ,Ape_Materno ='" & Ape_Materno &"' &,Direccion ='" & Direccion & "',Telefono ='" & Telefono & "',Email ='" & Email & "',FechaNac =" & FechaNac & " ,Sexo ='" & Sexo & "',EstadoCivil ='" & EstadoCivil & "' where Codusuario='" & codusuario &"' and Contrasena=" & pasword

Nota como paso la FechaNac ( la cual debe estar compuesta de dia, mes , anio

Espero me ayuden gracias ;)