Non e' piu' belloccio cosi? (occhio a eventuali errori di battitura)
codice:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        If Not Page.IsPostBack Then            
            Mostra_Categorie()
        End If

    End Sub

Public Sub Mostra_Categorie()
dim dap as new OleDb.OledbDataAdapter("SELECT CategoriaID, Nome FROM Categorie", ConfigurationSettings.AppSettings("ConnectionString"))
dim dt as new datatable
dap.fill(dt)
dplCategorieImg.datasource = dt
dplCategorieImg.databind
end sub
edit
p.s. ricorda di impostare nella dropdownlist le proprieta' DataValueField e DataTextField con i relativi nomi delle colonne