关于数组的赋值问题

Question

Public Shared Function LoginCheck(ByVal Username As String, ByVal Password As String) As String
        Dim DBSet As DataSet
        Dim TxtSql As String = ""
        Dim ErrorMsg As String = ""
        Dim TxtInfo() = {"0", "1", "fds", "fdsafsalj"}        DBSet = New DataSet
        TxtSql = "select * from users where accounts = '" & Username & "'"
        DBSet = ExecuteSQL(TxtSql, ErrorMsg)
        If ErrorMsg <> "" Then            LoginCheck = TxtInfo  ===>这里出错了“Object 的 1 维数组”的值无法转换为“String””
            Exit Function
        End If
----------------------------
代码的目的是希望能够通过logincheck返回一个字符串，如{"11","22","aaa","bbb"}，请大家帮忙。

Answer 1

Public Shared Function LoginCheck(ByVal Username As String, ByVal Password As String) As String()

Answer 2

返回一个字符串，如{"11","22","aaa","bbb"}
字符串还是数组？

Answer 3

LoginCheck = Join(TxtInfo,",")

Answer 4

感谢Eddie005(♂) №.零零伍 (♂) 的办法及其它帮助的朋友。照这办法已解决问题。