Hola

Estoy practicando la programacion en Visual Studio y cree una agenda (algo basica).
Mi problema es que al querer buscar, guardar o editar me marca error.
Me dice:
No se controló InvalidCastException
La conversión de la cadena "exec ver" en el tipo 'Double' no es válida.

Utilizo un DataGridView y este si me muestra los datos almacenados en sql. Pero si utilizo un botón para buscar marca error.

EL código completo del botón Buscar es:

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
cod = InputBox("Escribe el código del contacto")
sql = "exec ver'" + cod + "'"
conectar()
com = New SqlClient.SqlCommand(sql, conexion)
dr = com.ExecuteReader
If dr.Read Then
T1.Text = dr(0)
T2.Text = dr(1)
T3.Text = dr(2)
T4.Text = dr(3)
T5.Text = dr(4)
T6.Text = dr(5)
Else
MessageBox.Show("El Contacto no existe", "CONTACTOS")
End If
dr.Close()
conexion.Close()
End Sub


Alguien sabe que me falló?