SoloCodigo

hola mi problema es:

tengo una base de datos y dos tablas en ella, kiero en visual basic poder preguntar una matricula de mi alumno y ke de una tabla kon esta matricula me mande unos datos y ke de la otra tabla me mande los otros datos...  como es el codigo alguien puede ayudarme?  

en la forma tengo:

                TXTMATRICULA.Text
                TXTNOMBRE.Text
                TXTPATERNO.Text
                TXTMATERNO.Text
                TXTGRUPO.Text
                 **** estos los mando a llamar de una tabla
                txtmes
                txtmstatus
                  ****  estos dos ultimos los mando a llamar de otra tabla

ambas tablas tienen el campo matricula con este campo es komo las kiero relacionar..
 



les mando este pedaso de codigo ke ya tengo y les adjunto el archivo de mi programa tambien...  gracias




Private Sub CMDBUSCAR_Click()
If TXTBUSCAR.Text = "" Then
        MsgBox "Escribe el codigo a buscar", vbInformation
        Exit Sub
    End If
    With Data1
        .Recordset.MoveFirst
        For X = 0 To .Recordset.RecordCount - 1
           If Data1.Recordset!MATRICULA & "" = TXTBUSCAR.Text Then
                TXTMATRICULA.Text = .Recordset!MATRICULA & ""
                TXTNOMBRE.Text = .Recordset!NOMBRE & ""
                TXTPATERNO.Text = .Recordset!AP_PATERNO & ""
                TXTMATERNO.Text = .Recordset!AP_MATERNO & ""
                TXTGRUPO.Text = .Recordset!GRUPO & ""
            End If
        .Recordset.MoveNext
        Next X
       
    End With
   
End Sub