Public Function Connect()
MySqlcon = New MySqlConnection
MySqlcon.ConnectionString = "Data Source=xxxxxxx;Port=3306;Database=xxxxxxxxxx;User ID=xxxx;Password=xxxxx;"
MySqlcon.Open()
Dim Query As String
Query = "SELECT * FROM `xxxxx` WHERE 1"
command = New MySqlCommand(Query, MySqlcon)