Visual Basic - VB.NET y ADO! AYUDA!

Yo recién estoy comenzando a trabajar con VB.NET y tengo un par de problemas con la manipulación de bases de datos (sql) trabajando con clases.
Les cuento mi problema....

Yo tengo algo muy sencillo en form que es: Un text "txtDNI" donde uno ingresa su numero de DNI, un label "lblNombre" y "lblApellido" donde va a aparecer el nombre y apellido que trae de la base de datos cuando aprieto el botono "Button1"
Después tengo la clase conectar y la clase cliente la cual tiene la función "BuscarCliente" (segun DNI)
La conexión anda bien, y creo que la función de buscar también.
Mi problema es el código que tengo que escribir en el Form... para llamar a la función cuando aprieto el botón y que aparezcan los datos en el label....

Acá paso el código que tengo .... (omito la clase conectar)

Espero que alguien pueda ayudarme porque es muy importante...

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

¿??????????????????

End Sub
End Class

Public Class Cliente

Private _DNI As Integer
Private _Nombre As String
Private _Apellido As String

Public Property DNI() As Integer
Get
Return _DNI

End Get
Set(ByVal value As Integer)
_DNI = value
End Set
End Property
Public Property Nombre() As String
Get
Return _Nombre
End Get
Set(ByVal value As String)
_Nombre = value
End Set
End Property
Public Property Apellido() As String
Get
Return _Apellido
End Get
Set(ByVal value As String)
_Apellido = value
End Set
End Property

Public Function BuscarCliente(ByVal DNI As Integer) As List(Of Cliente)

Dim cmd As New SqlCommand
cmd.CommandText = "Select [DNI], [Nombre], [Apellido] from [Cliente] where DNI=@DNI"
cmd.CommandType = CommandType.Text
Dim prm As New SqlParameter
prm.ParameterName = "@DNI"
prm.Direction = ParameterDirection.Input
prm.Value = Me.DNI
cmd.Parameters.Add(prm)
Dim rs As SqlDataReader = Conectar.EjecutarConsulta(cmd)
Dim r As Cliente
Dim lst As New List(Of Cliente)
While rs.Read
r = New Cliente()
r.Nombre = rs("Nombre")
r.Apellido = rs("Apellido")
lst.Add(r)

End While
Return lst

End Function

End Class

-----------------------------------------

EN CONCRETO:
lo que necesito es saber que codigo poner en el boton... yo en Visual basic 6.0 lo sabia hacer yo ponia:

Private Sub Button1_Click()

dim x as new clase
dim xx as clase
set xx = x.BuscarCliente(txtDNI)
labelNombre.caption = xx.nombre
labelApellido.caption = xx.apellido
end sub

y con eso andaba barbaro... pero con NET es totalmente distinto....

Espero que alguien pueda sarme una mano, porque es muy importante...

te equivocaste de foro Lau