Крестики нолики по сети

Dim request As New WebClient()
        Dim url As String = "nameurl"
        request.Credentials = New NetworkCredential("login", "password")
 
        Dim newFileData() As Byte = request.DownloadData(url)
        Dim fileString As String = Encoding.UTF8.GetString(newFileData)
        
        Dim dataString() As String = fileString.Split(" ")
 
        Dim dataStore As New ArrayList()
 
        For Each data As String In dataString
            If data <> "" Then
                dataStore.Add(data)
            End If
        Next data
 
        Dim postStream As Stream = request.OpenWrite(url)
 
        'только полная перезапись (не нашел возможности замены определенной строки)
        For Each data As String In dataStore
            Dim writeData() As Byte = Encoding.ASCII.GetBytes(data & "#")
            postStream.Write(writeData, 0, writeData.Length)
         Next data
             
        MsgBox("done")

Imports MySql.Data.MySqlClient
 
Public Class Form1
    Dim conn As New MySqlConnection("Server=localhost;User id=root;password=;database=test_db")
    Dim cmd As New MySqlCommand
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            conn.Open()
            cmd.Connection = conn
            'Для выполнения запросов типа insert, update возможно использование ExecuteNonQuery, которая возвращает количество задействованных строк
 
            'для получения данных из таблиц (запросы типа select) используется reader.
            'cmd.CommandText = "SELECT * FROM `test_table`"
 
        Catch ex As Exception
            'описание действий при проблемах с подключением к БД
            MsgBox("Ошибка 2")
        End Try
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim first As Integer = TextBox1.Text
        Dim second As String = TextBox2.Text
        cmd.CommandText = "INSERT INTO `test_table` (`id`, `test_info`) VALUES (" & first & ", " & second & ");"
        cmd.ExecuteReader()
    End Sub
End Class

cmd.CommandText = "INSERT INTO `test_table` (`id`, `test_info`) VALUES ("12", "прив");"

cmd.CommandText = "INSERT INTO `test_table` (`id`, `test_info`) VALUES ('" & first & "', '" & second & "');"

cmd.CommandText = "SHOW TABLES FROM TicTak;"

cmd.CommandText = "SHOW TABLES"
MsgBox(cmd.ExecuteScalar)

Dim conn As New MySqlConnection("Server=104.20.67.46;User id=id6747848_db;password=***********;database=id6747848_db;port=21")