Error en ExecuteScalar

amigos aqui les paso el codigo claro que es mas conplicado
pero lo resumi en este ejemplo no se por que me falla..
alguna sugerencia.. :( millon de gracias...

amigos aqui les paso el codigo claro que es mas conplicado
pero lo resumi en este ejemplo no se por que me falla..
alguna sugerencia.. :( millon de gracias...


Private Sub Form1_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
conexion.ConnectionString = "server=(local);" & _
"database=midb;uid=sa;pwd=;"
Dim comando As New SqlCommand("select cod_unidad from
unidad where nombre_unidad=@c1", conexion)
comando.Parameters.Add(New SqlParameter("@c1",
SqlDbType.NVarChar))
comando.Parameters("@c1").Value = get_n()
Dim con As Integer
Try
conexion.Open()
con = CType(comando.ExecuteScalar, Integer)
MessageBox.Show("Codigo: " & con)
Finally
conexion.Close()
End Try
End Sub

Public Function get_n() As Integer
Dim com As New SqlCommand("select cod_unidad from unidad"
& _"where nombre_unidad=@w", conexion)
Dim valor As Integer
com.Parameters.Add(New SqlParameter("@w", SqlDbType.NVarChar))
com.Parameters("@w").Value = "jarabe"
Try
conexion.Open()
valor = CType(com.ExecuteScalar, Integer)
Return valor
Finally
conexion.Close()
End Try
End Function

.