Public Sub FillDSUntyped(ByRef mDataSet As DataSet, ByVal mSelectString As _
  String, ByVal TableName As String)
        Try
            Dim da As New SqlClient.SqlDataAdapter(mSelectString, _
              cnServer.ConnectionString)
            'Dim ds As New DataSet
            da.Fill(mDataSet, TableName)
        Catch ex As Exception
            RaiseEvent ErrorOccured(ex)
            Console.WriteLine(ex.Message)
        End Try
    End Sub

Dim DS as new DataSet
Call FillDSUntyped(DS,"SELECT * FROM OriginalTable","TableCopy")