[急]恳求各位大虾指点关于“DropDownList1”控件的迷津！

////////////////////////////////////////////////////////////////////////////////////////////////

        Dim Conn As New SqlConnection
        Conn.ConnectionString = "Server=localhost;Database=DBNAME;UID=sa;PWD="

        Dim ds As DataSet = New DataSet

        Dim selecter As String = "Select * from T_TABLE"
        Dim adapter As SqlDataAdapter = New SqlDataAdapter(selecter, Conn)

        adapterA.Fill(ds, "TYPE")

        DropDownList1.DataSource = ds.Tables("TYPE").DefaultView
        DropDownList1.DataBind()

////////////////////////////////////////////////////////////////////////////////////////////////

问题：
以上程序我想在 DropDownList1 控件里显示 "类型一"、"类型二"、"类型三"、"类型四"、"其他类型"，在数据库字段"TYPE"的字段值分别有"1"、"2"、"3"、"4"、"0"等5种类型。请问怎么显示？

我打算用以下程序处理，但不知道怎么处理，恳求各位大虾指点迷津！！！

//////////////////////////////////////////////////////////////

Select case TYPE
    case "1"
        TYPE="类型一"
    case "2"
        TYPE="类型二"
    case "3"
        TYPE="类型三"
    case "4"
        TYPE="类型四"
    case else
        TYPE="其他类型"
end select

//////////////////////////////////////////////////////////////