Private Sub writeDB(ByVal conStr As String, ByVal query As String)
 
        Dim myCon As New MySqlConnection(conStr)
        Dim myCom As New MySqlCommand(query)
 
        myCom.Connection = myCon
        myCon.Open()
        myCom.ExecuteNonQuery()
        myCom.Connection.Close()
 
 
    End Sub