Something is Wrong with DataReader

I am getting the following error message: Compiler Error Message: BC30311: Value of type 'System.Data.SqlClient.SqlDataReader' cannot be converted to 'System.Data.SqlClient.SqlDataAdapter'.

Source Error:

Line 32:    
Line 33:         'execute the SQL statement against the command to fill the DataReader 
Line 34:         dtrStates = objCommand.ExecuteReader() 

What am I doing wrong? I thought that the SQLDataAdapter was right.

Here's my code:

Sub BindDropDownList()

        Dim strConnect As String

        Dim strSQL as String

        Dim objConnect As New System.Data.SqlClient.SQLConnection(ConnectionString())

        Dim objCommand As New System.Data.SqlClient.SQLCommand

        Dim dtrStates As New SQLDataAdapter()

        Dim ddlStates as new DataSet()

        objConnect.Open()

        'Create SQL statement

        strSQL = "Select * from State Order By StateName"

        'Set the Command Object properties

        objCommand.Connection = objConnect

        objCommand.CommandText = strSQL

        'execute the SQL statement against the command to fill the DataReader

        dtrStates = objCommand.ExecuteReader()

        'Setup DropDown box

        ddlStates.DataSource = dtrStates

        ddlStates.DataValueField = "State"

        ddlStates.DataTextField = "StateName"

        'Bind the DropDownList control to the DataReader

        ddlStates.DataBind()

End Sub 

Mart,

Thank you for the code! I thought I'd let you know that I had to do this: Dim strConnect As New System.Data.SqlClient.SQLConnection(ConnectionString())  ; instead of just Dim StrConnect As String to get this working. I didn't give you information on my connection details.