Visual Basic y SQL Server ayuda con datagridview

[radamanntis]

hola amigos soy nuevo en el foro pues buscando di con este foro que est amuy bueno por cierto y quisiera espero me puedan ayudar tengo un pequeño problema a resolver , estoy trabajando en visual basic 2008 y sql server 2008. mi duda es como puedo ver las columnas de la tabla en este caso Clientes en un datagridview en VB , el usuario ingresa el nombre que al hacer click en un boton buscar que aparesca el cliente con ese nombre , tengo en sql server el StoreProcedure que hace eso , la conexion desde Visual Basic la hago desde con modulo conexion. espero me puedan ayudar a corregir mi codigo, mil gracias! de antemano!!



este es el codigo del modulo conexion

Imports System.Data
Imports System.Data.SqlClient

Module conexion
Friend con AsNew SqlConnection("Data Source=.\SQLEXPRESS;initial catalog=Prl;Integrated Security=True;")

Friend cmd AsNew SqlCommand
Friend lector As SqlDataReader
Friend ds AsNew DataSet
Friend da AsNew SqlDataAdapter

Function conectar() AsBoolean
con.Close()

Try
cmd.Connection = con
ReturnTrue
Catch ex As Exception
EndTry

EndFunction
EndModule

y este es el de boton buscar con el data grid view


Imports System.Data
Imports System.Data.SqlClient

PrivateSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try
If conectar() = TrueThen
da.SelectCommand = New SqlCommand
da.SelectCommand.CommandType.StoredProcedure()
da.SelectCommand.CommandText = ("SP_VerificaCliente")
da.SelectCommand.Parameters.Add("@idCliente", SqlDbType.Int).Value =
TextBox1.Text

con.Open()
lector = cmd.ExecuteReader
If lector.Read Then
Dim tabla AsNew DataTable
da.Fill(tabla)
Me.DataGridView1.DataSource = tabla

EndIf
EndIf

Catch ex As Exception
EndTry

EndSub
EndClass