【咨询】sql+VB课程设计

Private Sub Command1_Click()
Dim t As String 't为连接字符串，可以拷贝好或者使用ado控件生成稍作修改
t = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=stu;Data Source=Y1DWGPIVJEJI5BD;"
Dim con As New ADODB.Connection '创建数据库连接对象
Dim rs As New ADODB.Recordset '创建记录集对象
con.ConnectionString = t '把链接字符串的信息赋给链接对象
Dim sql As String
con.Open '打开链接
sql = "select count(*)from stuinfo"
rs.Open sql, con, adOpenKeyset, adLockPessimistic
Label1.Caption = sql
con.Close '关闭链接
End Sub

为什么label显示出来我的代码

关键求改进，！！在线等，头大！