Añadir mediante código a todos los DropDownList de la aplicación

[beamm]

Mirando por el foro enkontre un ejemplo que me fue bien y ayer puse el código y trabajando sin conexion me funcionaba perfectamente pero resulta q hoy me da un error y no he kambiado nada, solo que hoy si tengo conexion. ¿Qué puede ocurrir? Este es el código:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strconexion As String
Dim objconexion As OleDbConnection
Dim objcomando As OleDbDataAdapter
Dim objds As New DataSet
strconexion = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db"

objconexion = New OleDbConnection(strconexion)
objconexion.Open()
objcomando = New OleDbDataAdapter("select * from FranHoraria", objconexion)
objcomando.Fill(objds, "Inicio")
Dim fila As DataRow
For Each fila In objds.Tables("FranHoraria").Rows
DropDownList4.Items.Add(fila(0))

Next
objconexion.Close()
End Sub



Y el error este

Referencia a objeto no establecida como instancia de un objeto.

Error de código fuente:


Línea 46: objcomando.Fill(objds, "Inicio")
Línea 47: Dim fila As DataRow
Línea 48: For Each fila In objds.Tables("FranHoraria").Rows
Línea 49: DropDownList4.Items.Add(fila(0))
Línea 50: