From Instant
VB (
www.instantvb.com):
Private Function OneItem(ByVal whatever As String) As String
Return("<item><tag> $.value=""" & whatever & """ </tag> " & whatever & " </item>" & Constants.vbCrLf)
End Function
Protected Function CreateGrammar() As String
' As if records in a recordset
Dim grm As String = Constants.vbCrLf
grm &= OneItem("Albania")
grm &= OneItem("Algeria")
grm &= OneItem("Argentina")
grm &= OneItem("Australia")
' . . .
grm &= OneItem("Zimbabwe")
grm &= OneItem("India")
grm &= OneItem("anand")
Return grm
End Function