Imports System.Data

Imports System.Data.OleDb


Public Class AdoN_Command
Public DS As DataSet

Private AD As OleDb.OleDbDataAdapter
Private Comm As OleDb.OleDbCommand
Private DR As OleDb.OleDbDataReader

Public Sub New(ByVal str_Sql As String, ByRef CNN As OleDb.OleDbConnection)
Comm = New OleDb.OleDbCommand()
Comm.Connection = CNN
Comm.CommandText = str_Sql
DR = Comm.ExecuteReader
DS = New DataSet()
AD = New OleDb.OleDbDataAdapter()
AD.SelectCommand = Comm
AD.Fill(DS, "Questions")

Здесь возникает ошибка, как правильно инициализировать DataSet?????

End Sub

Protected Overrides Sub finalize()

End Sub
End Class