求一段代码！

Question

现想将VB联SQL在SQL中建一个USER表的存储过程。VB中建一个登录窗体。如果密码用户对就是打开MDIMAIN窗体！现在的问题是我如果通过存储过程判断数据库中有没有用户。

Answer 1

'首先引用Microsoft Activex Data Objects 2.x Library 
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=sqloledb.1;user id=sa;password=密码;Initial Catalog=数据库名;Data Source="
objrs.Open "存储过程 ", objcon, 3, 1
'再部件中添加DataGrid控件
Set DataGrid1.DataSource = objrs