Can't get a simple dataset working

[OrlandoRocks]

I know I will feel stupid when someone points it out but what is wrong
with this:

Dim Connection1 As SqlClient.SqlConnection = New
SqlClient.SqlConnection("Database=MyStore;uid=sa;pwd=password")

Connection1.Open()
Dim StringSelect = "select * from amazon"
Dim cmd2 As SqlClient.SqlCommand = _
New SqlClient.SqlCommand("SELECT * FROM amazon", Connection1)


Dim DA1 As SqlClient.SqlDataAdapter
Dim DS1 As DataSet
DA1.SelectCommand = cmd2

The last line throws me a "Object reference not set to an instance of
an object"

Please tell me what I am missing?

Thanks
Russ

 

[Stephany Young]

Dim DA1 As New SqlClient.SqlDataAdapter()

 

[Herfried K. Wagner [MVP]]

Dim DA1 As SqlClient.SqlDataAdapter

Replace the line above with:

\\\
Dim DA1 As New SqlClient.SqlDataAdapter()
///