كيف يمكنني من تحديد قيمة من جدول واضعها في ليبل ؟؟

ضع هذا الكود مع باقي الصفحة

 <%@ Import Namespace="System.Data" %>
 <%@ Import NameSpace="System.Data.OleDb" %>

  <%
  Dim myConnection As OleDbConnection
  Dim myCommand As OleDbCommand
  Dim myDataReader As OleDbDataReader

  myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA
 Source=" & Server.MapPath("db1.mdb" )
 myConnection.Open()
 myCommand = New OleDbCommand( select userid from users where username ="ahmad", myConnection )
 myDataReader = myCommand.ExecuteReader()

  Label1.Text= myDataReader.Item( "userid" )

 myDataReader.Close()
 myConnection.Close
 %>