Trovato vi posto il codice è tipo EOF di ASP :
codice:
Dim strSql As String
        Dim strnum As Integer
        Dim dr As OleDb.OleDbDataReader

        objConn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source='" & Server.MapPath("primoDB.mdb") & "'")
        strSql = "SELECT * FROM provaDB where nome='ll'"
        objRs = New OleDbCommand(strSql, objConn)

        objConn.Open()

        dr = objRs.ExecuteReader
        risultati.DataSource = dr
        If dr.HasRows Then
            Label1.Text = "pieno"
        Else
            Label1.Text = "vuoto"
        End If
       
        risultati.DataBind()
        objConn.Close()