Base de datos access con VIsual Basic.NET

[DiegoMarg]

En el segundo ExecuteReader me da el error que necesito una conección abierta y habilitada.

Dim oConn As New OleDb.OleDbConnection()
Dim myCommand As New OleDb.OleDbCommand()
Dim oRsRead As OleDb.OleDbDataReader

oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Datos\Peliculas.mdb")
oConn.Close()
oConn.Open()
myCommand.CommandText = "SELECT * FROM Rubros"
myCommand.Connection = oConn

oRsRead = myCommand.ExecuteReader()
While oRsRead.Read()
ddl_rubro.Items.Add(oRsRead.GetString(1).PadRight( 50) & oRsRead.GetInt32(0).ToString.PadLeft(3))
End While

oRsRead.Close
myCommand.CommandText = "SELECT * FROM Generos"
myCommand.Connection = oConn

oRsRead = myCommand.ExecuteReader()
While oRsRead.Read()
ddl_rubro.Items.Add(oRsRead.GetString(1).PadRight( 50) & oRsRead.GetInt32(0).ToString.PadLeft(3))
End While