Dim MysqlConnect As New _
MySql.Data.MySqlClient.MySqlConnection("Server=localhost;Database=db_name;Uid=root_name;Pwd=password")
Dim MySqlCommand As MySql.Data.MySqlClient.MySqlCommand = Nothing
Dim MysqlReader As MySql.Data.MySqlClient.MySqlDataReader = Nothing

   Try
      MysqlConnect.Open()

      If Not MysqlConnect.State = ConnectionState.Open Then Exit Sub

      MySqlCommand = New MySql.Data.MySqlClient.MySqlCommand("Select * From table_name", MysqlConnect)
      MysqlReader = MySqlCommand.ExecuteReader()

      'MySqlCommand = New MySql.Data.MySqlClient.MySqlCommand("...Insert / Update / Delete...")
      'MysqlCommand.ExecuteNonQuery()

      While MysqlReader.Read()
         'Value = MysqlReader.GetValue(i)
      End While

      MysqlReader.Close()

   Catch ex As Exception
      MsgBox(ex.ToString, 0, "")

      Finally
         MySqlCommand.Dispose()
         MysqlConnect.Close()
      End Try