Y el parámetro..??
en que momento se lo pasas..
Cita: Dim objSelect1 as Object = "SELECT CV_SUBPROGRAMA FROM SUBPROGRAMAS WHERE CV_PROGRAMA = '@PROGRAMA' GROUP BY CV_SUBPROGRAMA"
objComando1 = New OleDbDataAdapter(objSelect1, strConexion1)
Te faltaría algo como ésto:
Cita: objCommand1.SelectCommand.Parameters.Add(New OleDb.OleDbParameter("@PROGRAMA", algun_valor))
PD.- Tambien quitale las comillas simple de tu select..
Salu2
