You're not really big on describing what the error is and in what line of code it is occurring, are you ? .. you need to get better if you continue to expect more help, because people have better things to do than 'decode' what you're trying
Personally, I would remove this
Dim reader02 As SqlDataReader = set1.ExecuteReader()
Dim myDataSet As DataTable = New DataTable()
myDataSet.Load(reader02)
and go for something like
Dim sDA As New SqlDataAdapter(Set1)
Dim myDataSet = new DataSet()
Try
sDA.Fill(myDataSet)
Catch ex As Exception
... do something useful here ...
End Try