Dim DT As DataTable
Dim DR As DataRow
DT = New DataTable("DT")
DT.Columns.Add("key", GetType(String))
DT.Columns.Add("value", GetType(String))
DR = DT.NewRow
Dim strSQL As String = “your sql string ”
conn.Open()
Dim sqlDBcmd As SqlCommand = New SqlCommand
sqlDBcmd.Connection = conn
sqlDBcmd.CommandText = strSQL
Dim DBreader As SqlDataReader = sqlDBcmd.ExecuteReader()
While DBreader.Read()
DR(0) = DBreader.Item(0)
DR(1) = DBreader.Item(1)
DT.Rows.Add(DR)
DR = DT.NewRow
End While
DBreader.Close()