2 parametros Para un Store Procedure

Hola a todos, estoy programando y usando Store
Procedures, hasta el momento solo habia usado ningun
parametro o un parametro, pero hoy tengo que programar
con dos parametros, lo primero que hice fue crear dos
variables de tipo sqlparameter,les doy los valores a cada
parametro y loa agrego al data adapter

da.SelectCommand.Parameters.Add(param1)
da.SelectCommand.Parameters.Add(param2)

Pero aqui me manda un error
"Exepcion no controlada sqlexeption"

da.Fill(dsClientes, "CLIENTES")

Si alguien sabe como hacerle para poder enviar dos
parametros aqui dejo el codigo completo, para que me
digan donde esta el error o si me falata algo

Gracias


Public Sub BuscaClientesPorNombreYTipo(ByVal
CClientesNombre As Windows.Forms.DataGrid,
ByVal Nombre As String, ByVal Tipo As String)

Dim dsClientes As New DataSet
Dim da As New SqlClient.SqlDataAdapter
Dim param1 As New SqlClient.SqlParameter
("@NombreCliente", SqlDbType.VarChar = 255)
Dim param2 As New SqlClient.SqlParameter("@Tipo",
SqlDbType.VarChar = 6)

da.SelectCommand = New SqlClient.SqlCommand
da.SelectCommand.Connection = connCliente
da.SelectCommand.CommandType = CommandType.StoredProcedure
da.SelectCommand.CommandText = "ClienteNombreTipo"

param1.Direction = ParameterDirection.Input
param1.Value = Nombre
da.SelectCommand.Parameters.Add(param1)

param2.Direction = ParameterDirection.Input
param2.Value = Tipo
da.SelectCommand.Parameters.Add(param2)

da.Fill(dsClientes, "CLIENTES")

CClientesNombre.DataSource = dsClientes.Tables("CLIENTES")
End Sub