Imports MySql.Data Imports MySql.Data.MySqlClient Module ConnectDB Public MysqlConn As New MySqlConnection Public Sub ConnectToDb() Try If MysqlConn.State = ConnectionState.Open Then MysqlConn.Close() MysqlConn.ConnectionString = "SERVER = localhost;DATABASE=rmsbfp;USERID=root;Password=ub3r" MysqlConn.Open() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Sub DisconnectToDb() MysqlConn.Close() End Sub End Module