Visual Basic

this is my Problem:
I created a dataset xsd called dataset1.xsd,and xml schema called transaksi.xml

transaksi.xml:

<?xml version="1.0" encoding="Windows-1252"?>
<xs:schema attributeFormDefault="unqualified" elementFormDefault="qualified" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="DataSet1">
<xs:complexType>
<xs:sequence>
<xs:element name="transaksi">
<xs:complexType>
<xs:sequence>
<xs:element name="kd_trans" type="xs:string" />
<xs:element name="tgl" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

dataset1.xsd:

transaksi |
------------
kd_trans |
tgl |


And this is my code :
Sub new()
Dim stream As System.IO.Stream = System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream("transaksi.xml")
dataset11.ReadXml(stream, XmlReadMode.IgnoreSchema)
MsgBox(dataset11.transaksi.Rows.Count)
End sub

Problem:
Why the value is always 0 ?

dear friends,

I would like to ask some help. I am a beginner in vb.net programming and right now we have a thesis in school to develop an Application of Programming to Chemistry Dama. I already have a sample codes that I attached below.

The problem that I have right now is how can I capture 2 or 3 chips in one move. The code that I have is for capturing 1 chip per move. Need some help to have some idea on how I can modify my codes.

Thank you

sample code that I have in my program

'-----single chip taken-----------------'chip 9
                If picCheckers9.Location = square17 And picCheckers13.Location.X > 307 And picCheckers13.Location.Y > 189 And Open14 = True And Open17 = False Then
                    picCheckers13.Location = square14
                    str13 = 14
                    Open17 = True
                    Open14 = False
                    Open21 = True
                    picCheckers9.Location = square40
                    lblTurn.Text = "Red"

                    DataGridView1.Rows.Add(New Object() {"Al", "3,4", "Al", "AlAl", "-54"})

                    '----extra for double taken chips----- chip 9
                ElseIf picCheckers9.Location = square17 And picCheckers1.Location = square9 Or picCheckers2.Location = square9 Or picCheckers5.Location = square9 Or picCheckers6.Location = square9 And picCheckers13.Location.X > 307 And picCheckers13.Location.Y > 189 And Open14 = True And Open17 = False And Open9 = False And Open5 = True Then
                    picCheckers13.Location = square14
                    str13 = 14
                    Open17 = True
                    Open14 = False
                    Open21 = True
                    picCheckers9.Location = square40
                   DataGridView1.Rows.Add(New Object() {"Al", "3,4", "Al", "AlAl", "-54"})
                    '----extra for double taken chips-----

                    'Else
                    'lblTurn.Text = "Red"

Case 1
    form2.PictureBox1.Image.Save(fs, _
       System.Drawing.Imaging.ImageFormat.Jpeg)

Dim saveFileDialog1 As New SaveFileDialog()
     saveFileDialog1.Filter = "JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
     saveFileDialog1.Title = "Save an Image File"
     saveFileDialog1.ShowDialog()

     ' If the file name is not an empty string open it for saving.
     If saveFileDialog1.FileName <> "" Then
         ' Saves the Image via a FileStream created by the OpenFile method.
         Dim fs As System.IO.FileStream = CType _
            (saveFileDialog1.OpenFile(), System.IO.FileStream)
         ' Saves the Image in the appropriate ImageFormat based upon the
         ' file type selected in the dialog box.
         ' NOTE that the FilterIndex property is one-based.
         Select Case saveFileDialog1.FilterIndex
             Case 1
                 form2.PictureBox1.Image.Save(fs, _
                    System.Drawing.Imaging.ImageFormat.Jpeg)

             Case 2
                 Me.Button2.Image.Save(fs, _
                    System.Drawing.Imaging.ImageFormat.Bmp)

             Case 3
                 Me.Button2.Image.Save(fs, _
                    System.Drawing.Imaging.ImageFormat.Gif)
         End Select

         fs.Close()
     End If