Bueno si le das el mismo tratamiento como si fuese una cadena funciona bien, solo asegurate de ingresar algun valor a tu textbox de lo contrario te pinta todo.. =)
("SELECT * FROM Personas WHERE dni LIKE '" & CInt(txtDNI.Text) & "%'",cn)
Saludos,
Christian.