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