Public Sub tabla(ByVal rowX As Integer, ByVal colY As Integer, ByVal valueXY As String)
        Dim txt(,) As String
        Dim counterX As Integer = 0
        Dim counterY As Integer
        ReDim txt(rowX, colY)
        Do Until rowX = counterX
            counterY = 0
            Do Until colY

    Private Sub frmTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New MySqlConnection()
        'connection 
        myConnString = "conection to server"
        conn.ConnectionString = myConnString
        conn.Open()
        If conn.State = ConnectionState.Closed Then conn.Open()
        massDataTable.Clear()
        massCommand