Visual Basic - Sentencia SQL

Hola

Inicialmente tengo un DataGrid y un control adodc(Adopracticas), quiero que al cargar el formulario, en el datagrid se muestren los registros de la tabla prácticas que tengan en campo IdAlumno igual a un valor introducido en un textbox,......cómo hago esto?....estoy hecha un lio, por favor a ver si alguien puede ayudarme.

La sentencia SQL :

Set prac = New ADODB.Recordset

strSql = "SELECT * FROM PRACTICAS WHERE IdAlumno= '" & val(txtIdAlumno) & "'"

Al poner esto, no me aparece nada en el datagrid
Adopracticas.RecordSource = strSql

Qué está mal?

Dim Rs as adodb.recordset ' recordset que vas a enlazar al datagrid
Dim Db as adodb.Connection ' conexion a la base de datos
SEt rs=new adodb.recordset
rs.open "SELECT * FROM Tutabla where id=" & valor ,DB, adOpenForwardOnly, adLockReadOnly, adCmdText ' o el bloqueo que elijas.
if rs.bof=false and rs.eof=false then
set datagrid1.datasource=rs ' aca asignas el origen de datos al datagrid
else
msgbox "No hay datos que coincidan con la expresión enviada
rs.close
end if