Problema al Hacer Consulta en Visual Basic y Sql Server 7

[mit]

Miren Estoy haciendo esto para Hacer una consulta en visual basic, pero no me sale 

Private Sub Command3_Click()
consulta = "Select NoControl from Alumno where NoControl='" & TxtNoControl.Text & "'"
Call Conexion.Execute(consulta)

TxtNombre.Text = !Nombre
TxtApPaterno.Text = !ApPaterno
TxtApMaterno.Text = !ApMaterno
CboGrupo.Text = !Grupo
CboSemestre = !Semestre
CboEspecialidad.Text = !Especialidad
varRh = !Rh
varSexo = !Sexo
TxtDomicilio.Text = !Domicilio
CboMunicipio.Text = !Municipio
CboTipo.Text = !Tipo
TxtNomPadre.Text = !NomPadre
TxtNomMadre.Text = !NomMadre
TxtColonia.Text = !Colonia
FechaNac.Value = !FechaNac
TxtTelefono.Text = !Telefono
TxtAlergias.Text = !Alergias
End Sub

Si alguien me podria ayudar diciendome en donde estoy mal o que me falta se los agradeceria...

Saludos y gracias por su atencion

[brakencc]

Amigo yo conseguí varios tutos en este link y algo mas :::  https://vzlanonymous.wordpress.com/2012/09/29/coleeccion-completa-de-las-revistas-hack-x-crack/