关于数据填充后出现的问题,在线等~~~~~~

VB.NET code

 
     '****************************************************************************************************** 
     '函数原型: 
     '函数功能:判断用户是否可以登陆本系统 
     '函数参数: 
     '函数返回:True-表示可以登陆系统，False - 表示无权限登陆系统 
     '创建日期:2008-05-13 
     '修改日期: 
     '****************************************************************************************************** 
     Function LoginGrant(ByVal UserID As String, ByVal SoftwareName As String) As Boolean 
         Dim vSqladp As New SqlDataAdapter 
         Dim ds As New DataSet 
         vSqladp.SelectCommand = New SqlCommand 
         Try 
             vSqladp.SelectCommand.CommandText = "select LJMC from T_YHLB where YHBH='" & UserID & "'" 
             vSqladp.SelectCommand.Connection = SqlConn 
             Dim vSljmcarr(), vSljmc As String 
             vSqladp.Fill(ds, "T_YHLB")  '=====>>执行到这句的时候提示出错:提示信息为:Invalid object name "T_YHLB" 
             If ds.Tables("T_YHLB").Rows.Count > 0 Then 
                 vSljmc = ds.Tables("T_YHLB").Rows(0).Item("LJMC") 
                 vSljmcarr = vSljmc.Split(",") 
                 For Each s As String In vSljmcarr 
                     If s.ToLower = SoftwareName.ToLower Then 
                         Return True 
                     End If 
                 Next 
             Else 
                 Return False 
             End If 
         Catch ex As Exception 
             MsgBox(ex.Message) 
         Finally 
             vSqladp.SelectCommand.Dispose() 
             vSqladp.Dispose() 
             ds.Dispose() 
         End Try 
     End Function 
 

如上面的代码所示,一直出错,我使用SQL 2005 执行了上面的SQL语句发现语句没有错误,可是不知道为什么总是不行,还请大家帮忙看下是什么问题引起的.

[解决办法]
你是不是联错了数据库呢?
[解决办法]
把你那些引去了

[解决办法]
Dim sqlconn As SqlConnection
sqlconn = New SqlClient.SqlConnection("server=;database=;uid=;pwd=")
我可以肯定你的sqlconn 有问题！或者 T_YHLB 这个表在你的当前数据库不存在！