Imports DigitalData.Modules.Database Imports DigitalData.Modules.Logging Public Class OTypeSearch Private _Database As MSSQLServer Private LogConfig As LogConfig Private Logger As Logger Public Username As String Public User_Language As String Public ConnStringIDB As String Public Sub Init(LogConfig As LogConfig, ConnectionStringIDB As String, Username As String, UserLanguage As String) Me.LogConfig = LogConfig Me.Logger = LogConfig.GetLogger() Me.ConnStringIDB = ConnectionStringIDB Me.Username = Username Me.User_Language = UserLanguage Me._Database = New MSSQLServer(LogConfig, ConnectionStringIDB) Dim oSQL = "SELECT * FROM " End Sub End Class