Class Job
  Private Shared ds As DataSet

  Private Name As String
  Private Salary As Double

  Shared Sub New()
    ds = New DataSet()
  End Sub

  Public Sub New()
    Name = Nothing
    Salary = 0
  End Sub
End Class