title: Class being converted to 1-dimensional array
body: <p>I am trying to write a class library and I am getting the following error:
  "Value of type 'WorkMateLib.Login' cannot be converted to '1-dimensional array of WorkMateLib.Login'"</p>
  
  <p>The code of the classes is as follows:</p>
  
  <pre><code>Public Class Logins
      Public CurrentUser As Login()
      Public Sub New()
          CurrentUser = New Login()
      End Sub
      Public Function Authenticate(ByVal id As String, ByVal pw As String)
          Dim adpt As New WorkMateDataSetTableAdapters.LoginsTableAdapter
          For Each k As WorkMateDataSet.LoginsRow In adpt.GetDataByUserName(id)
              If String.Equals(k.UserPW, pw) Then
                  CurrentUser = New Login(k.UserName, k.UserPW, k.UserType)
                  Return CurrentUser
                  Exit Function
              End If
          Next
          CurrentUser = Nothing
          Return Nothing
      End Function
  
  End Class
  
  Public Class Login
      Private _UserName As String
      Private _UserPW As String
      Private _UserType As String
      Property UserName
          Get
              Return _UserName
          End Get
          Set(value)
              _UserName = value
          End Set
      End Property
      Property UserPW
          Get
              Return _UserPW
          End Get
          Set(value)
              _UserPW = value
          End Set
      End Property
      Property UserType
          Get
              Return _UserType
          End Get
          Set(value)
              _UserType = value
          End Set
      End Property
      Public Sub New()
          UserName = ""
          UserPW = ""
          UserType = ""
      End Sub
      Public Sub New(ByVal Namee As String, ByVal pw As String, ByVal typee As String)
          UserName = Namee
          UserPW = pw
          UserType = typee
      End Sub
  
  End Class
  </code></pre>
  
  <p>Thanks for the help in advance.</p>