Visual Basic - duda de programacion

Tengo una base de datos en access 97 la cual tengo ligada a un adoc y hasta ahi todo bien sin embargo cuando deseo hacer una segunda consulta para que aparesca a un combo box no me aparece nada

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\stl97.mdb;Persist Security Info=False"
End Sub

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

Private Sub Oplin1_Click()
LINEAS "1"
cmbestacion.ListIndex = 0
End Sub

he tradao de hacerlo con el mismo meodo sin resultado alguno simplemente no aparecen los datos de la tabla en el combobox. Agradeceria cualquier sugerencia.