Public Class Connection
    Private DBConnection As New DBConnection
    Private Shared myConnection As New Connection
 
    Private Sub New()
        'private, damit Konstruktor nicht von außen aufgerufen werden kann
    End Sub
 
    Public Function getDBConnection() As DBConnection
 
        Return DBConnection
 
    End Function
 
    Public Shared Function getConnectionInstance() As Connection
 
        Return myConnection
 
    End Function
 
    Public Function getConnectionStatus() As Boolean
 
        If DBConnection.State = ConnectionState.Open Then
            Return true
        Else
            Return false
        End If
 
    End Function
 
    Public Function connect(ByVal UserName As String, ByVal UserPassword As _
      String, ByVal DBName As String, ByVal ServerName As String) As Boolean
 
        DBConnection.ConnectionString = "Server=" + ServerName.ToString + _
          ";Port=1234;Database=" + DBName.ToString + ";Uid=" + _
          UserName.ToString + ";Pwd=" + UserPassword.ToString + ";"
        DBConnection.Open()
 
        Return MySQLConnection.Ping()
 
    End Function
 
    Public Function disconnect() As Boolean
 
       DBConnection.Close()
        DBConnection.Dispose()
 
    End Function
End Class

___________________________
Greez Smartyx