Comment faire cette petite routine en ASPX?

Je suis habitué de travailler sur VB6.  Je viens de passer à ASPX.  comment faire cette petite routine en ASPX?

Public Sub RechercherClient(name as String)
  Dim a as Database
  Dim b as Recordset
  Set a = OpenDatabase(App.Path + "\DATABASENAME.mdb")
  Set b = a.OpenRecordset("SELECT * FROM [CLIENTS]"_  & "ORDER BY [NO_CLIENT]",_ dbOpenDynaset)
  With b
    .FindFirst "[NO_CLIENT]='" & name & "'"
    if .NoMatch then
      frmClients.txtNom.SetFocus
      SendKeys "{Home}+{End}"
    Else
      frmClients.txtNom.Text = b![NOM]
      frmClients.txtPrenom.Text = b![PRENOM]
      ...
    EndIf
  End With
  a.Close
End Sub

Merci pour ton aide

 Jean-François