Error al llamar a un procedimiento almacenado

[colocha06]

Hola estoy desarrollando una aplicacion en vb.net 2005 y sql. Trato de utilizar Store Precedures y al llamarlo me avienta el error Object reference not set to an instance of an object.. El codigo es:

Private Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
Try

Dim ocmd As New SqlCommand("sp_dato", con)
ocmd.CommandType = CommandType.StoredProcedure
conexion.conexion()
Dim opara As New SqlParameter("@operacion", SqlDbType.Char) 'si recuerdas el parametro generado en sql @operacion
Dim op As New SqlParameter("@tipo", SqlDbType.VarChar)
opara.Size = 15 'tamaño de caracteres ha recibir el parametro
opara.Value = "ADD"
op.Size = 4
op.Value = Me.TxtCodDatos1.Text
ocmd.Parameters.Add(opara)
ocmd.Parameters.Add(op)

Da.SelectCommand = ocmd
Da.SelectCommand.Connection = con

Catch ex As Exception
'Me.TxtNumContrato.Text = ""
'Me.TxtNomTitular.Text = ""
'Me.TxtApeTitular.Text = ""
'Me.TxtNumContrato.Focus()
MsgBox("Datos no pudieron ser guardados", MsgBoxStyle.Exclamation = MsgBoxStyle.OkOnly, "ERROR")
con.Close()
End Try
End Sub

[Trulala de cordoba]

Hola.

Sacale al código el TRY CATCH y fijate bien en que linea te está dando el error.
De todos modos no se que estás haciendo pero no me queda claro esto:

conexion.conexion()

Porque al Comando le estás pasando como parametro una conexion de nombre con pero tenes esa línea ahí que no parece estár bien

[asastrem]

1.- primero la cadena de conexion cnn
2.- el adaptador DataAdapter
3.- el command
en el commandtype defines cuando es un procedimiento almacenado
despues llamas al procedimiento por su nombre

ejemplo:

Public Sub Update(ByVal item As Contacto)

Using oCnn As SqlConnection = CreateConnection()

oCnn.Open()

Using oCmd As New SqlCommand

oCmd.Connection = oCnn
oCmd.CommandType = CommandType.StoredProcedure

oCmd.CommandText = "ContactosUpdate" OJO NOMBRE PROC

oCmd.Parameters.AddWithValue("@Id", item.Id)
oCmd.Parameters.AddWithValue("@RefBan", item.RefBan)
oCmd.Parameters.AddWithValue("@Nombre", item.Nombre)
oCmd.Parameters.AddWithValue("@Calle", item.Calle)

oCmd.ExecuteNonQuery()

End Using

End Using

End Sub