Note that your column can accept only integer value, because of this line:
table.Columns.Add("Drinks", Type.GetType("System.Int32"))
And you're trying to add string (
which is wrong!):
Dim Drinks As String
Drinks = "Coke"
table.Rows.Add(Drinks.ToString)
If you want to add integer value, you have to check if Checkbox is
Checked[
^], then to add a row into datatable.
Assuming that each drink has its numeric value, you can use something like this:
If CheckBox1.Checked Then table.Rows.Add(New Object(){1})