Module Module1
Sub Main()
Dim htbl As [Link]
htbl = GetHashTable()
Dim ds As DataSet = New DataSet()
ds = htbl("CustomerDetails")
' Display the dataset values on the console
[Link](vbCrLf & "Customer Details" & vbCrLf)
Dim row As DataRow
For Each row In [Link](0).Rows
Dim item As Object
For Each item In [Link]
[Link]([Link]())
Next
Next
[Link]()
End Sub
Public Function GetHashTable() As [Link]
Dim htbl As [Link]
htbl = New [Link]()
Dim ds As DataSet = New DataSet()
[Link]("[Link]")
[Link]("CustomerDetails", ds)
Return htbl
End Function
End Module