Dim myConnection As SqlConnection = New SqlConnection( _
  ConfigurationSettings.AppSettings("ConnectionString"))
        Dim myCommand As SqlCommand = New SqlCommand("Name deine SP", _
        myConnection)
        myCommand.CommandType = CommandType.StoredProcedure
 
 
        Dim param1 As SqlParameter = New SqlParameter("@DeineSqlParameter1", _
          SqlDbType.NChar, 10)
        param1.Value = "Deine Variable1"
        myCommand.Parameters.Add(param1)
 
Dim param2 As SqlParameter = New SqlParameter("@DeineSqlParameter2", _
  SqlDbType.NChar, 10)
        param1.Value = "Deine Variable2"
        myCommand.Parameters.Add(param2)
 
        // myCommand.Parameters.Add("@DeineSqlParameter2", SqlDbType.NVarChar, _
          50).Value = "Deine Variable"  für Schreibfaule  ;-) 
 
        Dim param3 As SqlParameter = New SqlParameter("@DeineSqlParameter3", _
          SqlDbType.NVarChar, 10)
        param3.Direction = ParameterDirection.Output
        myCommand.Parameters.Add(param3)
 
        myConnection.Open()
        myCommand.ExecuteNonQuery()
        myConnection.Close()
 
dim x as Interger = cint(param3.value)