Visual Basic - Ayuda ACCESS

Hola amigos alguien me podria decir si mi insert into esta bien estructurado? empiezo a creer que es esto lo que no me deja enviar a access mis datos de mis variables

SQL = "Insert Into DatosEmpleados (AIDEmpleado,ANombre,AFechaAlta,AEstatus,ABaja,ASexo,AEstadoCivil,"
SQL = SQL & "ACalle,ACalle2,ACalle3,AFechaNacimiento,ARFC,AIMSS,ACodigoPostal,ABanco,AIDCuenta,"
SQL = SQL & "ACheque,AContrato,AIDArea,AAreaDir,APagoDias,AIDCategoria,ACategoriaTipo,ANomina,"
SQL = SQL & "ACaja,ANumPuesto,APuesto,AZona,ATargeta)"
SQL = SQL & "Values('"
SQL = SQL & IDEmpleado & "','"
SQL = SQL & Nombre & "','"
SQL = SQL & FechaAlta & "','"
SQL = SQL & Estatus & "','"
SQL = SQL & Baja & "','"
SQL = SQL & Sexo & "','"

Parte 1

Parte 2

SQL = SQL & EstadoCivil & "','"
SQL = SQL & Calle & "','"
SQL = SQL & Calle2 & "','"
SQL = SQL & Calle3 & "','"
SQL = SQL & FechaNacimiento & "','"
SQL = SQL & RFC & "','"
SQL = SQL & IMSS & "','"
SQL = SQL & CodigoPostal & "','"
SQL = SQL & Banco & "','"
SQL = SQL & IDCuenta & "','"
SQL = SQL & Cheque & "','"
SQL = SQL & Contrato & "','"
SQL = SQL & IDArea & "','"
SQL = SQL & AreaDir & "','"
SQL = SQL & PagoDias & "','"
SQL = SQL & IDCategoria & "','"
SQL = SQL & CategoriaTipo & "','"
SQL = SQL & Nomina & "','"
SQL = SQL & Caja & "','"
SQL = SQL & NumPuesto & "','"
SQL = SQL & Puesto & "','"
SQL = SQL & Zona & "','"
SQL = SQL & Tarjeta & "');"