Estabelecendo parâmetros para o Select

Question

Pelo que tenho observado o caminho para acertar o relacionamento de data do ASP com o Access na minha aplicação é melhorar o meu select e esta é a minha dúvida, como estabelecer parâmetros para o meu Select?

Para melhor compreender abaixo as alternativas sem sucesso:

Primeira:
 Dim Hora As Date
 ddlEntrada.Text = Hora.Year
 Neste caso o retorno é: 1899-12-30T07:00:00-03:00 enquanto esperava: 1989
 Segunda:
 String.Format("{0:yyyy}", ddlEntrada.Text)
 Neste caso o retorno é: 1899-12-30T07:00:00-03:00 enquanto esperava: 1989     
Terceira:       
Response.Write(String.Format("{0:Thh:mm:ss-hh:mm}", ddlEntrada.Text) & "<br>")
 Neste caso o retorno é: 1899-12-30T07:00:00-03:00 enquanto esperava: 07:00:00
Quarta:
 Response.Write(String.Format("{0:y}", CDate(ddlEntrada.Text)) & "<br>")
 Neste caso o retorno é: "A conversão da cadeia de caracteres '' no tipo 'Date' não é válida."  enquanto esperava: 1899
 Quinta:
 Dim Hora As Date
 ddlEntrada.Text = Hora.Year
 Neste caso o retorno é: 1899-12-30T07:00:00-03:00 enquanto esperava: 1989

Obs.: No Access a tbAgendaHora tem o campo siglaHora que é Data/Hora Formato hh:nn:ss e ddl é um DropDownList.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            cargaDset()
            gravaXML()
            Session.Add("DS", DSet)
        Else
            DSet = Session.Item("DS")
        End If
End Sub

Private Sub gravaXML()
        DSet.WriteXml(Server.MapPath("Output.xml"), XmlWriteMode.IgnoreSchema)
        DSet.WriteXmlSchema(Server.MapPath("Output.xsd"))

End Sub

Private Sub cargaDset()
        DSet.Tables.Clear()
        Dim Dadapter99 As OleDbDataAdapter = New OleDbDataAdapter
        Dadapter99.SelectCommand = New OleDbCommand("SELECT codHora,siglaHora FROM tbAgendaHora", New OleDbConnection(My.Settings.SIConecte))
        Dadapter99.Fill(DSet, "TBAgendaHora")
End Sub


 Inherits System.Web.UI.Page
    Dim con As New OleDbConnection
    Dim Dadapter As OleDbDataAdapter = New OleDbDataAdapter
    Dim DSet As New DataSet
    Dim retDATASET As DataSet = New DataSet


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            cargaDset()
            Session.Add("DS", DSet)
        Else
            DSet = Session.Item("DS")
        End If
    End Sub

    Private Sub cargaDset()
        ddlEntrada.Items.Clear()
        ddlEntrada.DataSource = retDATASET.Tables("TBAgendaHora")
        ddlEntrada.DataTextField = ("siglaHora")
        ddlEntrada.DataValueField = ("codHora")
        ddlEntrada.DataBind()     
    End Sub