Namespace Klassen
  Public Class Benutzer
        Private _iMaId As Integer = 0
        Public Property iMaId As Integer
            Get
                Return _iMaId
            End Get
            Set(value As Integer)
                _iMaId = value
            End Set
        End Property
  End Class
End Namespace

Namespace Klassen
  Public Class SQL
    Public Function Login(ByVal sBenutzername As String, sPasswort As String) _
      As Boolean
      Dim objconn As New MySqlConnection(My.Settings.ConnectionString)
      Dim cmd As New MySqlCommand("", objconn)
      Dim dr As DbDataReader
 
      Try
        'Hier kommt dann der Code für den Login
        'Wenn die Eingaben richtig sind, dann instanziere ich Benutzer und 
        ' setze die Mitarbeiter ID
        Dim Benutzer as new Klassen.Benutzer
        Benutzer.iMaId = 'Wert aus DB
 
      Catch ex As Exception
 
      End Try
    End Function
  End Class
End Namespace

Dim Benutzer as New Klassen.Benutzer