Вы должны иметь возможность встраивать значения двух переменных так же, как вы делаете это с customer.CustName и customer.Sameame, например,
Public Sub CreateXml(ByVal cols As Integer, ByVal rows As Integer)
Dim db As New MDataContext
Dim Customers = <gallery columns="<%= cols %>" rows="<%= rows %>">
<%= From customer In db.Customers _
Select <customer>
<name><%= customer.CustName %></name>
<surname><%= customer.Surname %></surname>
</customer> %>
</gallery>
Customers.Save("d:\1.xml")
Process.Start("d:\1.xml")
End Sub
Строго говоря, вы, вероятно, должны сделать соответствующие ToString()
вызов, например <%= cols.ToString(CultureInfo.InvariantCulture) %>
.Таким образом вы гарантируете, что изменение не внесет ненужного бокса, а также не будет зависеть от культуры исполняющего потока, хотя последний вряд ли повлияет на переменную Integer.