Imports System
Imports System.Data
Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
Imports System.IO
 
Public Class frmadmin
    Inherits System.Windows.Forms.Form
 
    Dim conn As MySqlConnection
    Dim data As DataTable
    Dim da As MySqlDataAdapter
    Dim cb As MySqlCommandBuilder
 
    Private Sub Connect_to_MySql()
        If Not conn Is Nothing Then conn.Close()
 
        Dim connStr As String
              connStr = _
                "Server=ServerIPAdresse;Database=mysql;Uid=UserID;Pwd=Passwort;"
        Try
            conn = New MySqlConnection(connStr)
            conn.Open()
.......

conn.Open()