problem populating drop down

[d2005]

trying to populate a drop down, any one see a problem

 Private Sub fill_area() 
Dim sqlfillarea As New SqlCommand("SELECT * from tb_area", oSQLConn)

'daArea.Fill()

oSQLConn.Open()

Me.ddlArea.DataSource = daArea

Me.ddlArea.DataValueField = "area_name"

Me.ddlArea.DataTextField = "area_name"

Me.ddlArea.DataBind()

oSQLConn.Close()

End Sub