Ayuda con la carga de datos en un combo box desde tablas en access

Hola buenos días / tardes tengo una base de datos en access 97 y requiero que de la tabla torniquetes y de la columna torniquete aparezca en un combobox hasta ahorita no he tenido éxito.
Private Sub cmbestacion_Click()
    SQL = "SELECT * FROM TORNIQUETES WHERE TORNIQUETES.TORNIQUETE LIKE '%" & cmbestacion.Text & "%' "
    Adodc1.RecordSource = SQL
    Adodc1.Refresh
    If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then Exit Sub '
    Adodc1.Recordset.MoveFirst
    cmbtorniquete.Clear
    Do While Not Adodc1.Recordset.EOF 'fin de archivo
        cmbtorniquete.AddItem Adodc1.Recordset.Fields(1)
        Adodc1.Recordset.MoveNext
    Loop
End Sub
La verdad no se que estoy haciendo mal esta otra consulta esta ligada
Sub LINEAS(LINEA As String)
    Adodc1.RecordSource = "SELECT * FROM LINEAS WHERE LINEAS.LINEA ='" & LINEA & "'  ORDER BY LINEAS.ORDEN ASC"
    Adodc1.Refresh
    Adodc1.Recordset.MoveFirst
    cmbestacion.Clear
    Do While Not Adodc1.Recordset.EOF
        cmbestacion.AddItem Adodc1.Recordset.Fields(1)
        Adodc1.Recordset.MoveNext
    Loop
End Sub
agradesere mucho cualquier sugerencia.