Visual Basic - Error al ejecutar sentncia SQL

Hola de nuevo,

No consigo aclararme con las consultas SQL,y cómo debo ejecutarlas con ADOBC....

Esta consulta para insertar un valor en un registro no funciona:

strSql = "Insert Into Practicas.IdAlumno Select Alumnos.IdAlumno From Alumnos Where Alumnos.IdAlumnos=" & val(frmAlumnos.txtIdAlumno)
cnBase.Execute (strSql)
El error que sale es este: No Value given for one or more required parameters...

Los campos que quieres Insertar datos en la Tabla Practicas deben de tener por Default valores o te hago esta pregunta cuantos campos tiene la tabla Practicas?????por que nada mas quieres insertar uno, y los demas campos deben de tener valores por default o nulos como prefieras si esta Tabla tiene mas campos.
strSql = "Insert Into Practicas(IdAlumno) Select Alumnos.IdAlumno From Alumnos Where Alumnos.IdAlumnos=" & val(frmAlumnos.txtIdAlumno)
cnBase.Execute (strSql)